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Foreword 


Learning to program is more than learning the syntactic and semantic rules of a programming 
language. It also requires learning how to design programs. Any good book on programming 
must therefore teach program design. 

Like any other form of design, program design has competing schools. These schools are 
often associated with a particular set of languages. Since Java is an object-oriented programming 
language, people teaching Java should emphasize object-oriented design. 

Felleisen and Friedman show that the functional (input-output driven) method of program 
design naturally leads to the use of well-known object-oriented design patterns. In fact, they 
integrate the two styles seamlessly and show how well they work together. Their book proves that 
the functional design method does not clash with, but supports object-oriented programming. 

Their success doesn’t surprise me, because I’ve seen it in Smalltalk for many years, though 
unfortunately, it seems to have remained one of the secrets of object-oriented design. I am 
happy to see that Felleisen and Friedman have finally exposed it. This book 
useful if you are a C++ programmer learning Java, since you probably haven't seen functional 
program design before. If you know functional design, the book will gently introduce you to 
pattern-based programming in Java. If you don’t know it, Felleisen and Friedman will teach 
you a powerful new way of thinking that you should add to vour design toolbox. 

Enjoy the pizzas! 


will be especially 


Ralph E. Johnson 
Champaign, Illinois 
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Preface 


An object-oriented programming language enables a programmer to construct reusable program 
components. With such components, other programmers can quickly build large new programs 
and program fragments. In the ideal case, the programmers do not modify any existing code 
but simply glue together components and add a few new ones. This reusability of components, 
however, does not come for free. It requires a well-designed object-oriented language and a strict 
discipline of programming. 

Java is a such a language, and this book introduces its object-oriented elements: (abstract) 
classes, fields, methods, inheritance, and interfaces. This small core language has a simple 
semantic model, which greatly helps programmers to express themselves. In addition, Java 
implementations automatically manage the memory a program uses, which frees programmers 
from thinking about machine details and encourages them to focus on design. 

The book’s second goal is to introduce the reader to design patterns, the key elements of a 
programming discipline that enhances code reuse. Design patterns help programmers organize 
their object-oriented components so that they properly implement the desired computational 
process. More importantly still, design patterns help communicate important properties about 
a program component. If a component is an instance of an explicitly formulated pattern and 
documented as such, other programmers can easily understand its structure and reuse it in their 
own programs, even without access to the component’s source. 


The Intended Audience 

The book is primarily intended for people—practicing programmers, instructors and students 
alike—who wish to study the essential elements of object-oriented programming and the idea 
of design patterns. Readers must have some basic programming experience. They will benefit 

most from the book if they understand the principles of functional design, that is, the design 
of program fragments based on their input-output behavior. An introductory computer science 
course that uses Scheme (or ML) is the best way to get familiar with this style of design, but it 
is not required. 


What this Book is Not About 

Java provides many useful features and libraries beyond its object-oriented core. While these 
additional Java elements are important for professional programming, their coverage would 
distract from the book’s important goals: object-oriented programming and the use of design 
patterns. For that reason, this book is not a complete introduction to Java. Still, readers 
who master its contents can quickly become skilled Java programmers with the supplementary 
sources listed in the Commencement 

The literature on design patterns evolves quickly. Thus, there is quite a bit more to patterns 
than an introductory book could intelligibly cover. Yet, the simplicity of the patterns we use 
and the power that they provide should encourage readers to study the additional references 
about patterns mentioned at the end of the book. 
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critical junctures. Michael Ashley, Sundar Balasubramaniam, Cynthia Brown, Peter Drake, 
Bob Filman, Robby Findler, Steve Ganz, Paul Graunke, John Greiner, Erik Hilsdale, Matthew 
Kudzin, Julia Lawall, Shinn-Der Lee, Michael Levin, Gary McGraw, Benjamin Pierce, Amr 
Sabry, Jonathan Sobel, and George Springer read the book at various stages of development and 
their comments helped produce the final result. We also wish to thank Robert Prior at MIT 
Press who loyally supported us for many years and fostered the idea of a “Little Java.” The book 
greatly benefited from Dorai SitaranTs incredibly clever Scheme typesetting program SDT^X. 
Finally, we would like to thank the National Science Foundation for its continued support 
and especially for the Educational Innovation Grant that provided us with the opportunity to 
collaborate for the past year. 


Reading Guidelines 

Do not rush through this book. Allow seven sittings, at least. Read carefully. Mark up the book 
or take notes; valuable hints are scattered throughout the text. Work through the examples, 
don't scan them. Keep in mind the motto “Think first, experiment later.” 

The book is a dialogue about interesting Java programs. After you have understood the 
examples, experiment with them, that is, modify the programs and examples and see how they 
behave. Since most Java implementations are unfortunately batch interpreters or compilers, this 
requires work of a repetitive nature on your side. Some hints on how to experiment with Java 
are provided on the following pages. 

We do not give any formal definitions in this book. We believe that you can form your own 
definitions and thus remember and understand them better than if we had written them out for 
you. But be sure you know and understand the bits of advice that appear in most chapters. 

We use a few notational conventions throughout the text to help you understand the 
programs on several levels. The primary conventions concern typeface for different kinds of 

words. Field and method names are in italic. Basic data, including numbers, booleans, and 
constructors introduced via datatypes are set in sans serif. Keywords, e.g., class, abstract, 
return and interface are in boldface. When you experiment, you may ignore the typefaces 
but not the related framenotes. To highlight this role of typefaces, the programs in framenotes 
are set in a typewriter face. 

Food appears in many of our examples for two reasons. First, food is easier to visualize 
than abstract ideas. (This is not a good book to read while dieting.) We hope the choice of 
food will help you understand the examples and concepts we use. Second, we want to provide 
you with a little distraction. We know how frustrating the subject matter can be, and a little 
distraction will help you keep your sanity. 

You are now ready to start. Good luck! We hope you will enjoy the experiences waiting for 
you on the following pages. 


Bon appetit! 


Matthias Felleisen 
Daniel P. Friedman 


xn 



Experimenting with Java 


Here are some hints on how to experiment with Java: 1 

1. Create a file that contains a complete hierarchy of classes. 

2. To each class whose name does not end with a superscript V , V, X, or .M, add a toString 
method according to these rules: 

a) if the class does not contain any fields, use 


public String toString() { 
return "new 


+ getClassO .getNameO + } 


b) if the class has one field, say x, use 


public String toString() { 
return "new 


(" + x + ")"; > 


getClassO .getNameO 


+ 


+ 


c) if the class has two fields, say x and y, use 


public String toStringO { 
return "new 


y + > 


getClassO .getNameO + "( 


+ 


+ x + 


+ 


3. Add the following class at the bottom of the file: 


class Main { 

public static void main(String argsf ]) { 
DataType_or_Interface y 
System.out.println( ... 


new 


); > > 


With DataType_or_Interface y 

experiment. Then replace. 

with. For example, if you wish to experiment with the distanceToO method of ManhattanPt 
as defined in chapter 2, add the following definition to the end of your file: 


create the object y with which you wish to 
with the example expression that you would like to experiment 


new 


class Main { 

public static void main(String argsf ]) { 
PointD y = new ManhattanPt(2,8); 

System.out.println( y.distanceToO() ); } > 


^ee Arnold and Gosling [1] for details on how they work. These hints make little sense out of context, so for 
now, just follow them as you read this book. 


• • • 
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If you wish to experiment with a sequence of expressions that modify y, as in chapter 10, e.g 


y* 


y- 


y- 


with 


replace 


+ "\n 
+ "\n 


+ 


y* 


+ 


y- 


y- 


For example, if you wish to experiment with the methods of PiemanM as defined in chapter 10. 
add the following definition to the end of your file: 


class Main { 

public static void main(String args[ ]) { 
PiemanI y = new PiemanM(); 

System.out.println( 
y.addTop(new Anchovy()) + "\n" + 
y.addTop(new Anchovy()) + "\n" + 
y. substTop(new TunaQ ,new AnchovyO) ); } } 


4. Finally, compile the file and interpret the class Main. 
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1 


Yes, it is. 


Is 5 an integer? 


23? 


Is this a number: 


Yes, but we don’t use negative integers. 


3 


No, and we don’t use this type of number. 


Is this an integer: 5.32? 


What type of number is 5? 


l 


int. 


i 


In Java, int stands for ‘integer. 


Quick, think of another integer! 


How about 19? 


What type of value is true? 


boolean. 


What type of value is false? 


boolean. 




Can you think of another boolean? 


No, that’s all there is to boolean. 


A type. 


What is int? 


10 


Another type. 


What is boolean? 


11 


A type is a name for a collection of values. 


What is a type? 


12 


What is a type? 


Sometimes we use it as if it were the 
collection. 


13 


Can we make new types? 


We don't know how vet. 


Modern Toys 
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Draw the picture that characterizes the 


essential relationships among the following 


classes. 


Pepper 


v 


This superscript is a reminder that the class is a 
datatype. Lower superscripts when you enter this kind of 
definition in a file: SeasoningD. 


15 


V 


Okay. But aren’t all three classes introducing 
new types? 


Yes. We say Seasoning 
Salt and Pepper are its variants. 


is a datatype, and 


16 


Yes, in a way. Now, is 

new Salt() 
a Seasoning 15 ? 


Yes, it is, because new SaltQ creates an 
instance of Salt, and every instance of Salt is 
also a Seasoning 25 . 


17 


And 


v 


because new PepperQ 


It’s also a Seasoning 
creates an instance of Pepper, and every 
instance of Pepper is also a Seasoning 1 ’. 


new PepperQ? 


18 


What are abstract, class, and extends? 


Easy: 

abstract class introduces a datatype, 
class introduces a variant, and 
extends connects a variant to a datatype. 


19 


No, because only Salt and Pepper extend 
Seasoning 15 . 1 


Is there any other Seasoning 25 ? 


l 


Evaluating new SaltO twice does not produce the same 
value, but we ignore the distinction for now. 


Chapter 1 
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No, but boolean is a type that also has just 
two values. 


Correct, Salt and Pepper are the only 
variants of the datatype Seasoning 75 . Have 
we seen a datatype like Seasoning 75 before? 


21 


We can have lots of Seasoning 7 ^. 


Let’s define more Seasoning 7 ^. 


22 


And then there were four. 


Yes. 


23 


What is a Cartesian point? 


It is basically a pair of numbers. 


24 


An intersection where two citv streets meet. 


What is a point in Manhattan? 


25 


How do CartesianPt and ManhattanPt differ 
from Salt and Pepper? 


Each of them contains three things between 
{ and }. The x and the y are obviously the 
coordinates of the points. But what is the 
remaining thing above the bold bar? 1 


abstract class Point 75 {} 


l 


This bar indicates the end of the constructor definition. It 
is used as an eye-catching separator. We recommend that 
you use 


// 


when you enter it in a file. 
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The underlined occurrences of CartesianPt 
and ManhattanPt introduce the constructors 
of the respective variants. 


How do we use these constructors? 


•27 


A constructor is used with new to create 
new instances of a class. 


Obvious! 


28 


When we create a CartesianPt like this: 
new CartesianPt(2,3), 

we use the constructor in the definition of 
CartesianPt. 


So now we have created a CartesianPt whose 
x field is 2 and whose y field is 3. And 
because CartesianPt extends Point 77 , it is 
also a Point 77 . 


29 


Correct. Is this a ManhattanPt: 
new ManhattanPt(2,3)7 


Yes, and its x field is 2 and its y field is 3. 


30 


Isn't all this obvious? 


Mostly, but that means we have used 
constructors before without defining them. 
How does that work? 


31 


And that’s the constructor we used before, 
right? 


When a class does not contain anv fields, as 
in Salt and Pepper, a constructor is included 
bv default. 


32 


Yes, that's correct. Default constructors 
never consume values, and. 

I 1 

new, always create objects without fields. 


Point 15 ()? 


Good. But what is new 


when used with 


33 


An abstract class is bv definition 
incomplete, so new cannot create an 
instance from it. 


That makes sense. Let’s move on. 
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Yes, they define a datatype and two variants. 


Do the following classes define another 
datatype with variants? 


v 


Num 


Zero 


OneMoreThan 


class OneMoreThan extends Num 25 { 
Num 25 predecessor ; 

OneMoreThan (Num 25 ,p) { 

predecessor — _p; } 




Draw the picture, too. 


35 


Is this a Num^ 5 : 
new ZeroQ? 


Obviously, just like new Salt() is a 
Seasoning 25 . 


36 


Yes, because OneMoreThan constructs a 
Num 25 from a Num 15 , and everv instance of 

OneMoreThan is also a Num 15 . 


Is this a Num 15 : 

new OneMoreThan( 

new ZeroQ)? 


37 


How does OneMoreThan do that? 


v 


We give it new ZeroQ, which is a Num 
it constructs a new Num 25 . 


, and 


38 


And what does it mean to construct this new 
instance? 


This new instance of OneMoreThan is a value 
with a single field, which is called 
predecessor. In our example, the field is 

new ZeroQ. 


39 


Does predecessor always stand for an 
instance of Zero? 


v 


No, its type says that it stands for a Num 
which, at the moment, may be either a Zero 

V 

or a OneMoreThan. 
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A Num , because OneMoreThan constructs 
an instance from a Num p and we agreed 
that 


new OneMoreThan( 
new OneMoreThan( 
new ZeroQ))? 


new OneMoreThan( 
new Zero()) 

is a Num D . 


41 


because 0 is not a Num p . 


1 


What is 

new OneMoreThan( 


That is nonsense, 


l 


0 ) ? 


We use the word "nonsense" to refer to expressions for 
which Java cannot determine a type. 


42 


No, 0 is similar to, but not the same as. 

• • i 

new ZeroQ. 


Is new Zero() the same as 0? 


43 


1 is similar to, but not the same 

new OneMoreThan( 
new ZeroQ). 


Is 


as. 


new OneMoreThan( 
new ZeroQ) 


like 


l 9 


44 


4. 


And what is 

new OneMoreThan( 

new OneMoreThan( 
new OneMoreThan( 
new OneMoreThan( 
new ZeroQ)))) 


similar to? 


45 


Lots. 


Are there more Num p s than booleans? 


46 


Are there more Num p s than ints? 


i 


No. 


i , 


This answer is only conceptually correct. Java limits the 

'JO 

number of ints to approximately 2* . 


Chapter 1 
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Easy: new ZeroQ is an instance of Zero and, 
by implication, is a Nurn 15 , whereas 0 is an 
int. This makes it difficult to compare them, 
but we can compare them in our minds. 


What is the difference between new ZeroQ 
and 0? 


48 


So are types just names for different 
collections with no common instances? 


Correct. In general, if two things are 
instances of two different basic types, they 
cannot be the same. 


49 


What are non-basic types? 


The primitive types (int and boolean) are 
distinct; others may overlap. 


50 


And what is that? 


Class definitions do not introduce primitive 
types. For example, a value like new ZeroQ 
is not only an instance of Zero, but is also a 
Num 25 , which is extended by Zero. Indeed, it 
is of any type that Num 15 extends, too. 


51 


Every class that does not explicitly extend 
another class implicitly extends the class 

Object. 


This must mean that everything is an Object. 


52 


Almost. We will soon see what that means. 


Okay. 


The First Bit of Advice 

When specifying a collection of data, 
use abstract classes for datatypes and 
extended classes for variants . 


Modern Toys 


9 



53 


What do the following define? 


abstract class Layer p {} 


class Base extends Layer p { 
Object o; 

Base(Object _o) { 

_o; } 


o 


• - 


• v — 


class Slice extends Layer 1 { 
Layer D /; 

Slice(Layer p J) { 

/=_/;} 


54 


What is 
new Base( 
new Zero())? 


r> r» 


And what is 
new Base( 
new Salt())? 


5f> 


They are, because everything created with 
new is an Object, the class of all objects. 


10 


They define a new datatype ; 
variants. The first variant contains a field of 


its t wo 


type Object. 


It looks like an instance of Base, which 
means it is also a Layer p and an Object. 


It also looks like an instance of Base But 
how come both 

new Basel 
new ZeroQ) 


new Basel 

i 

new Salt()) 

are instances of the same variant. 


7 


Hence, we can use both 

I 

new Zero() 


and 


new Salt() 

for the construction of a Base, which requires 
an Object. 





Is anything else an Object? 


We said that only things created with new 
are Objects. 


1 


1 


Arrays and strings are objects, too. We don't discuss 
them. 


58 


5 is not created with new, so this must be 
nonsense. 


Correct. Is this a Layer 15 : 
new Base( 


5)? 


59 


Is this a Layer 15 : 

new Base( 
false)? 


false is not created with new, so this must be 
nonsense, too. 


60 


Correct again! How about this Layer 15 : 

new Base( 
new lnteger(5))? 


This must mean that Integer creates an 
object from an int. 


61 


Guess how we create a Layer 15 from false? 


Easy now: 

new Base( 
new Boolean(false)). 


62 


Is it confusing that we need to connect int 
with Integer and boolean with Boolean? 


Too much coffee does that. 


63 


Ready for more? 


Can’t wait. 
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Remember points? 


Sure, we just talked about them. But what 
are these labeled ovals about? 


class ManhattanPt extends Point p { 
int x; 
int y\ 

ManhattanPt(int _x,int .y) { 


x — -X\ 


y = -y;} 


ManhattanPt 


} 


We will find out soon. Did you notice the big 
white space on the right? 


It must be for drawing the picture of the 
classes. 


How far is 

new ManhattanPt(3,4) 
from the Empire State Building? 


If the Empire State Building is the origin, we 
have to walk seven blocks: 3 over, 4 up. 


And how far is 

new CartesianPt(3,4) 

from the origin? 


3 2 + 4 2 . 


5, which is 
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r. 


O 


Write the methods distanceToO using {, }, ( 
). ;. return, int. -K [\/-J, and - 2 , which 
determine how far a point is from the origin. 




6 


W hat do t he methods produce? 


< 


Here they are. 




abstract int dista n ce ToO ( ) ; 


Point 


f 




ToO () { 

2 + .yJ } 


int (list ana 

! 

f 

return 


/ 2 


/ 


vj 


CartesianPt 


i 


N 


ToOQ 


int di-stana 
return ./ + y\ } 


1 


ManhattanPt 


To what do Point, CartesianPt, and 
ManhattanPt in the boxes refer? 


i 


When von niter this in a file, use 

% 

(int)Math.sqrt(x*x+y*y). 

Math is a c lass that contains sqrt as a (static) method. Later 
we will see what Cint) means. 


H 


The labels remind us that we need to insert 

, CartesianPt, and 


v 


these methods into Point 

ManhattanPt. 


9 


How many times have' we defined the method 

i. 

To 0 ? 


ana 


3 


i 


i f 


14 



Of course, you can't write these methods. 

• V 

yet. Okay, you deserve something sweet for 
enduring this last question. 


ints, which represent the distances to the 
origin. 


They correspond to the unexplained labels in 
the definition of the datatype and its 
variants. 


That's simple enough. 


Three times, but the first one differs from the 
other two. It is labeled abstract, while the 

( l 

others are not preceded bv a special word. 






11 


Okay. 


An abstract method in an abstract class 
introduces an obligation, which says that all 
concrete classes that extend this abstract 
class 1 must contain a matching method 
definition. 


1 


Directly or indirectly. That is, the concrete class may 
extend an abstract class that extends the abstract class with 
the obligation and so on. 


12 


7. 


What is the value of 

new ManhattanPt(3,4) 

. distanceToO ()? 


13 


We determine the value of 

x + y, 

with x replaced by 3 and y replaced by 4. 


How do we arrive at that value? 


14 


What is the value of 
new CartesianPt(3,4) 

. distanceToO ()? 


5, because that is the value of 


x 2 + y 


2 


with x replaced by 3 and y replaced by 4. 


15 


The largest int that does not exceed the 
square root of x. 


What does \_y/x\ compute? 


16 


Time for a short break? 


An apple a day keeps the dentist away. A 
cup of coffee does not. 
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Here is another datatype with its variants. 


but has more variants. 


What is different about them? 


abstract class Shish D { 


Shish 


} 




class Skewer extends Shish 15 { 


Skewer 


} 






class Onion extends Shish 15 { 

Shish 

Onion(Shish 


v 


S' 


V 


s){ 


;} 


s 


S ’ 


Onion 




class Lamb extends Shish 15 { 
Shish D ,s; 

Lamb(Shish D _s) { 


I 


s 


Lamb 


} 


class Tomato extends Shish 15 { 

Shish 15 

Tomato(Shish 


S 

' ? 


V 


s ) { 


} 


.S' 


~s: 


Tomato 




18 


Did you notice the big space on the right? 


Yes, isn't it for drawing the picture of the 
classes? 


Chapter 2 
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Construct a Shish 15 . 


How about 


new SkewerQ? 


Yes, every Skewer is also a Shish . How 
about another one? 


Here’s one: 

new Onion( 

new SkewerQ). 


21 


And a third? 


Here’s one more: 

new Onion( 

new Lamb( 
new Onion( 
new SkewerQ))). 


22 


Are there only Onions on this Shish 15 : 
new SkewerQ? 


true, because there is neither Lamb nor 
Tomato on new Skewer (). 


23 


Are there only Onions on this Shish 15 : 

new Onion( 
new SkewerQ)? 


true. 




And how about: 

new Lamb( 
new SkewerQ)? 


false. 




Is it true that 
new Onion( 
new Onion( 
new Onion( 
new SkewerQ))) 

contains only Onions? 


true. 


26 


And finally: 

new Onion( 
new Lamb( 

new Onion( 
new SkewerQ)))? 


false. 
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2 7 


1 


using {, }, (, 

. true, false, return, and boolean. 


, • 


1 


A better name for these methods would be 
nothingButOnions. 


2H 


And what do they produce? 


2 \) 


Here are the methods. 


abstract boolean only Onions 


0; 


Slush 


J 




boolean 
return true: } 


S ke we r 


boolean only Onions () { 
ret urn s. onluOn ions (): 


Onion 


• • » • 


boolean 
return false; } 


Lamb 


boolean 
return false; } 


Tomato 






Did von notice the labels in the boxes? 


M) 


Good. How many methods have we defined? 


18 


Of course, you can’t write these methods, 

K.‘ 

yet. Okay, you deserve a lollipop for 
enduring this kind of question again. 


booleans. 


Yes. We said above that the labeled ovals in 
the center of t he blank lines in the above 
class definitions tell us where to put the 
boxes with the cones 


y 




c 


Five, but the first one is abstract; the 







Do abstract methods belong to the 


abstract class? 


32 


Yes, because Shish^ contains an abstract 
method called onlyOnions that obligates 
each variant to define a matching, concrete 

method. 


v 


Does each variant of Shish 
method called onlyOnions ? 


contain a 


33 


Always. 


Is this always the case? 


34 


What do these concrete methods consume? 


Nothing, just as the abstract method says. 


35 


What do these concrete methods produce? 


booleans, just as the abstract method says. 


36 


What is the value of 

new Onion( 

new Onion( 
new SkewerQ)) 

.only Onions ()? 


true. 


37 


And how do we determine the value of 
new Onion( 
new Onion( 
new SkewerQ)) 

.only Onions ()? 


We will need to pay attention to the method 
definitions. 


38 


Which definition of onlyOnions must we use 

to determine the value of 
new Onion( 
new Onion( 
new SkewerQ)) 

.only Onions ()? 


This object is an instance of Onion, so we 
need to use the definition of onlyOnions that 
belongs to the Onion variant. 
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What follows the word return in the 
only Onions method in Onion? 


s. only Onions (). 


40 


It is 


W hat is the field ,s of the object 

new Onion( 

new Onion( 
new SkewerQ))? 


new Onion( 
new SkewerQ), 

isn't it? 


41 


Does .s alwavs stand for an Onion? 


v 


No. it has type Shish 
any variant of Shish 
or Tomato. 


, and it can stand for 
: Skewer, Onion, Lamb. 


v. 


42 


It should be 
new Onion( 
new SkewerQ) 

. only Onions (), 

right? 


Then what is a. only Onions 


() ? 


43 


Because the answer for 
new Onion( 
new SkewerQ) 

. only On ions ( ) 

is also the answer for 

new Onion( 
new Onion( 
new SkewerQ)) 

.only Onions Q. 


Why do we need to know the meaning of 

new Onion( 
new SkewerQ) 


44 


Let’s see. 


How do we determine the answer for 
new Onion( 
new SkewerQ) 

.onlyOnioiisQ^ 
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45 


This object is an instance of Onion, so we 
need to use the definition of onlyOnions that 
belongs to the Onion variant. 


Which definition of onlyOnions must we use 
to determine the value of 

new Onion( 
new Skewer()) 

.only Onions ()? 


46 


What follows the word return in the 
onlyOnions method in Onion? 


s. only Onions ( ). 


47 


What is the field s of the object 

new Onion( 
new SkewerQ)? 


new SkewerQ. 


48 


It is 


Then what is s.onlyOnions ()? 


new SkewerQ 

.only Onions (), 

just as we would have expected. 


49 


Why do we need to know the meaning of 

new SkewerQ 

.only Onions ()? 


Because the answer for 
new SkewerQ 

.only Onions () 

is also the answer for 

new Onion( 

new SkewerQ) 

.only Onions (), 

which in turn is the answer for 

new Onion( 

new Onion( 
new SkewerQ)) 

.only Onions (). 


50 


How do we determine the answer for 
new SkewerQ 
.only Onions ()? 


We need to determine one more time which 
version of onlyOnions we must use. 


Methods to Our Madness 


21 



Obviously. 


new SkewerQ 


Skewer? 


Because true is what the only Onions method 


in Skewer always returns. 


54 


Yes! The answer for 

new Onion( 

new Onion( 
new SkewerQ)) 

.onlyOnionsQ 

is the same as the answer for 

new Onion( 

new SkewerQ) 

.only Onions (), 

which is the same as the answer for 

new SkewerQ 

. only Onions Q, 
which is 
true. 


Are we done? 


55 


false, isn’t it? 


What is the value of 
new Onion( 
new Lamb( 
new SkewerQ)) 

.only Onions Q? 


56 


Which definition of only Onions must we use 
to determine the value of 

new Onion( 

new Lamb( 
new SkewerQ)) 

.only Onions Q? 


This object is an instance of Onion, so we 
need to use the definition of only Onions that 
belongs to the Onion variant. 
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What follows the word return in the 


onlyOnions method in Onion? 


58 


It is the object built from 

new Lamb( 
new SkewerQ). 


What is the field s of the object 

new Onion( 
new Lamb( 
new SkewerQ))? 
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It is 


Then what is s.onlyOnions ()? 


new Lamb( 
new SkewerQ) 

. only Onions (), 

of course. 
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Why do we need to know the meaning of 

new Lamb( 
new SkewerQ) 

.only Onions ()*? 


Because the answer for 

new Lamb( 

new SkewerQ) 

.only Onions () 

is also the answer for 

new Onion( 

new Lamb( 
new SkewerQ)) 
.only Onions (). 
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How do we determine the answer for 
new Lamb( 
new SkewerQ) 

.only Onions ()? 


We determine which version of onlyOnions 
to use. 


62 


And? 


We use the one that belongs to Lamb. 


63 


And now what is the answer? 


false, because false follows the word return 
in the corresponding method definition in 

Lamb. 
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Yes! The answer for 


new Onion( 
new Lamb( 
new SkewerQ)) 

.only Onions () 


is the same as the answer for 

new Lamb( 

new Skewer()) 

. o nly Onions (), 

which is 

false. 
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Here are our words: 

“The methods determine for a Shish 

whether its contents are edible by an onion 

• 

lover. 1 ' 


Describe the methods (he., the function) 
onlyOnions in your own words. 


v 
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Here are our words again: 

“For each layer of the Shish D . except for 
Onion, the corresponding method knows 
whether it is good or bad. The method for 
Onion needs to determine whether the 
remaining layers are only Onions sitting on 

a Skewer. r 


Describe how the methods (he., the 
function) only Onions accomplish this. 
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Yes. 


Is 


new Tomato( 
new SkewerQ) 

a Shish p ? 


68 


The object 

new Tomato( 
new SkewerQ) 

is an instance of Shish^, so we can also wrap 
an Onion around it. 


Is 


new Onton( 
new Tomato( 
new SkewerQ)) 


a Shish p ? 


69 


Sure. 


And how about another Tomato? 


Chapter 
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Of course, there is no Lamb on it. 


new Tomato( 
new Onion( 
new Tomato( 
new 

a vegetarian shish kebab? 


SkewerQ))) 


71 


And 


Yes, it is a vegetarian shish kebab, because it 
only contains Onions. 


new Onion( 
new Onion( 


new Onion( 


SkewerQ)))? 


new 


72 


Define the methods Q'.e., the function) 
is Vegetarian, 

which return true if the given object does not 
contain Lamb. 

Hint: The method for tomatoes is the same 
as the one for onions. 


That’s no big deal now. 


boolean isVegetarian^) { 
return s. is Vegetarian(); } 


Tomato 
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Five: one abstract, the others concrete. 


How many methods have we defined? 


Yes, they always do. 


Do abstract methods belong to the 
abstract class? 


*-• 


75 


v 


p 


Yes, because Shish 


Does each variant of Shish 
method called is Vegetarian ? 


contains an abstract 
get avian. 


contain a 


method called isVe 


7b 


Always. 


Is this always the case? 




\' 


i i 


Nothing, just as the abstract method says. 


What do these concrete methods consume? 


7 H 


booleans, just as the abstract method says. 


What do these concrete methods produce? 


The Second Bit of Advice 


Wh e 


mg a function over a 


n write 


place a method in each of the 

up the datatype. If 
a field of a variant belongs to the same 

the method may call the 


I ants that make 


car 


' * 


corresponding method of the field in 


■ 1 1 on. 
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There are two methods per variant. 


Collect all the pieces of Shish 7 ^. Here is the 
datatype. 


abstract class Shish 15 { 
abstract boolean only Onions (); 
abstract boolean isVegetarian (); 


} 
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What do the following define? 


abstract class Kebab 15 { 

Kebab 


} 


- 


• • 9 








class Radish extends Kebab 15 { 
Kebab 15 k\ 

Radish(Kebab D .k) { 


I 


l 


I 


i 


k ; } 


k 


Radish 


} 


Don't forget the picture. 


28 







80 


They define a datatype and four variants 
that are similar in shape to Shish 15 . 








81 


They are placed onto different Holders. 


What is different about them? 


82 


Sure, a rod is a kind of holder, and every rod 
is an Object, so o in Holder can stand for any 
rod. Is it necessary to draw another picture? 


Here are some holders. 


Are they good ones? 


83 


Think of another kind of holder. Are you 
tired of drawing pictures, yet? 


We could move all of the food to various 
forms of plates. 


abstract class Plate 17 {} 


84 


What is 


It’s a Kebab 17 . 


new Shallot( 
new Radish( 
new Holder( 
new 


DaggerQ)))? 
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Sure it is. It only contains radishes and 
shallots. 


new Shaliot( 
new Radish( 
new Holder( 
new DaggerQ))) 

a vegetarian Kebab 17 ? 


86 


Sure, because Gold is a Plate 17 , Plate 17 is used 
as a Holder, and radishes and shallots can be 

i 

put on any Holder. 


Is 


new S h a 11 ot ( 
new Radish ( 
new Holder( 
new GoldQ))) 


a Kebab 179 


87 


Sure it is. It is basically like 

new Shallot( 
new Radish( 
new Holder( 
new DaggerQ))), 

except that we have moved all the food from 
a Dagger to a Gold plate. 


Is 


new Shallot( 
new Radish( 
new Holder( 
new GoldQ))) 

a vegetarian kebab? 


88 


If vou can, you may rest now. 

v r v- 


Let’s define the methods (be., the function) 


which check whether a kebab contains only 
vegetarian foods, regardless of what Holder it 
is on. 


89 


That’s possible now. 


Write the abstract method isVeggie. 


abstract boolean isVeggie () 


Kebab 


Of course, isVeggie belongs to Kebab^ and 
isVegetarian to Shish 17 . 
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Except for the names of the methods and 
fields, the definitions are the same as they 
were for Shish 25 . 


The concrete methods are similar to those 
called is Vegetarian. Here are two more; 

define the remaining two. 
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What is the value of 

new Shallot( 

new Radish( 
new Holder( 
new DaggerQ))) 

.isVeggieQ? 


true. 


92 


What is 

new Shallot( 
new Radish( 
new Holder( 

new DaggerQ)))? 


It is a Kebab 15 , but we also know that it is an 
instance of the Shallot variant. 


93 


What is the value of 

new Shaliot( 
new Radish( 
new Holder( 
new 

.is Veggie ()? 


It is true, too. 


Gold( ))) 


94 


And what is 

S h a 11 ot ( 
Radish( 
new Holder( 

GoldQ)))? 


It is also a Kebab 25 , because any kind of 
Holder will do. 


new 


new 


new 
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What type of value is 

new Shallot( 
new Radish( 
new Holder( 

new lnteger(52)))) 

. is Veggie () ? 


boolean. 


96 


boolean. 


What type of value is 

new Shallot( 
new Radish( 

new Holderf 
new OneMoreThanf 
new Zero 

■ isVeggie ()? 


97 


boolean. 


What type of value is 

new 
new Radish( 
new Holder( 
new Boolean(false)))) 

. is Veggie()'! 


ShalJot( 


98 


Yes, and all other kinds of Objects that we 
could possibly think of. 


Does that mean isVeggie works for all five 
kinds of Holders? 


99 


All the food is on a Dagger. 


What is the holder of 

new Shallot( 

new Radish( 
new Holder( 
new Dagger())))? 


100 


All the food is now on a Gold plate. 


What is the holder of 

new Shallot( 
new Radish( 
new Holder( 
new Gold())))? 
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All the food is on an Integer. 


What is the holder of 
new Sha!lot( 

new Radish( 
new Holder( 

new lnteger(52))))? 


102 


What is the value of 

new Shallot( 

new Radish( 
new Holder( 
new DaggerQ))) 

. what Holder ()? 


The dagger. 


103 


What is the value of 
new Shallot( 

Radish( 
new Holder( 
new Gold()))) 
.whatHolder ()? 


The gold plate. 


new 


104 


What is the value of 
new Shallot( 

new Radish( 
new Holder( 
new lnteger(52)))) 

.whatHolder ()? 


An Integer, whose underlying int is 52. 


105 


What type of values do the methods (i.e. 
the function) of whatHolder produce? 


They produce rods, plates, and integers. And 
it looks like they can produce a lot more. 


106 


Is there a simple way of saying what type of 
values they produce? 


They always produce an Object, which is also 
the type of the field of Holder. 


107 


Here is the abstract method whatHolder. 


If we add this method to Kebab 15 , then we 
must add a method definition to each of the 
four variants. 
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What is the value of 
new Holder! 

new Integer (52)) 
. whatHolder ()? 


new lnteger(52). 


109 


What is the value of 
new Holder! 
new Sword!)) 

. what Holder {) ? 


new Sword(). 


1 io 


What is the value of 
new Holder! h) 

. what Holder () 
if h is some object? 


It is b. 


111 


Define the concrete method that 
the space labeled Holder. 


With these kinds of hints, it's easv. 


goes into 


Object what Holder () { 

return o: } 


Holder 


1 12 


What is the value of 

new Radish( 

new Shallot! 
new Shrimp! 
new Holder! 
new Integer(52))))) 

. what Holder ()? 


new I nteger( 52). 


i id 


What- is the value of 

new Shallot! 
new Shrimp! 
new Holder( 
new I nteger (52)))) 

.whatHolder ()? 


new Integer!52). 
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114 


What is the value of 
new Shrimp( 
new Holder( 
new lnteger(52))) 

.whatHolder ()? 


new lnteger(52). 
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Does that mean that the value of 

new Radish( 
new Shallot( 
new Shrimp( 
new Holder( 
new lnteger(52))))) 
.whatHolder () 

is the same as 

new Shallot( 
new Shrimp( 
new Holder( 
new lnteger(52)))) 

. whatHolder (), 

which is the same as 

new Shrimp( 

new Holder( 
new lnteger(52))) 

.whatHolder (), 

which is the same as 

new Holder( 

new lnteger(52)) 

.whatHolder ()? 


Yes, all four have the same answer: 

,i 

new lnteger(52). 


116 


Here is the method for Shallot. 


Thev are all the same. 


Object whatHolder () { 
return k. whatHolder (); } 


Shrimp 


Write the methods of whatHolder for Shrimp 
and Radish. 


Object whatHolder () { 
return k.whatHolder (); } 


Radish 
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Here is the datatype and one of its variants. 


abstract class Kebab 15 { 
abstract boolean isVeggie (); 
abstract Object whatHolder (); 


} 


Collect the remaining variants. 


Are there any other Kebab 25 foods besides 

Shallot, Shrimp, and Radish? 


36 
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There are only three left. 


class Shallot extends Kebab 25 { 


Kebab 25 k: 


Shallot(Kebab p Jc) { 


k\ } 


k 


boolean isVeggie () { 


return k. is Veggie (); } 


Object whatHolder () { 


return k.whatHolder (); } 




class Shrimp extends Kebab 25 { 


Kebab 15 k: 


Shrimp(Kebab p _ k ) { 


-k; } 


k 


boolean is Veggie() { 


return false; } 


Object whatHolder () { 


return k.whatHolder (); } 


} 


class Radish extends Kebab 15 { 


Kebab 15 k\ 


Radish(Kebab p .k) { 


-k\ } 


k 


boolean isVeggie() { 


return k.isVeggie(); } 


Object whatHolder () { 


k 


return 


No, these are the only kinds of foods on a 


Kebab 15 . 
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Can we add more foods? 


we 


e 


w 


added Thyme and Sage to Seasoning 25 . 


120 


A concrete class that extends Kebab 27 * must 
define these two methods. That's what the 
abstract specifications say. We can define as 
many Kebab^s as we wish. 


Let's define another Kebab 27 *. 


class Zucchini extends Kebab 25 { 
Kebab 27 * k\ 

Zucchini(Kebab D _ k ) { 


k: } 


k 


boolean isVeggie() { 
return k.isVeggie()\ } 
Object whatHolder () { 
return k.whatHolder (); } 


Why does it include is Veggie and whatHolder 
methods? 


} 


121 


Is it obvious how the new methods work? 


Totally. In both cases is Veggie just checks 
the rest of the Kebab 15 , because green 
peppers and zucchini are vegetables. 
Similarlv. whatHolder returns whatever 
holder belongs to the rest of the Kebab 25 . 


122 


And then there were six. 


Yes, now Kebab 25 has six variants. 


123 


Which of these points is closer to the origin: 

new ManhattanPt(3,4) 


The second one, 

because its distance to the origin is 6 while 
the first point s distance is 7. 


and 


new ManhattanPt(l,5)? 


124 


Good. Which of the following points is closer 
to the origin: 

new CartesianPt(3,4) 


The first one, clearly. Its distance to the 
origin is 5, but the second distance is 13. 


or 


new CartesianPt(12,5)? 


Methods to Our Madness 


37 




w e added t he method closerToO to 
CartesianPt. It consumes another CartesianPt 
and determines whether the constructed or 
the consumed point is closer to the origin. 


class CartesianPt extends Point p { 
int r; 
int //: 

CartesianPt(int 


int _ y) { 


r. 


- 4 . 


x 


r * 


v- } 


y 


ToOQ { 

•• + r J; } 

loscrToOj CartesianPt p) { 


int distance 

return 
boolean r 
return 

distanccToOi ) < p.distance 


j 


ToOQ-, } 




Add the corresponding method to 
ManhattanPt. 


What is the value of 
new ManhattanPt(3,4) 

. closer To 0 (new M a n h atta n Pt (1,5)) ? 


What is the value of 

new ManhattanPt(l,5) 

. closer To 0 (new M a n hatta n Pt (3.4)) ? 


What 


is the value of 


new CartesianPt(12,5) 

.closei 


■ To0 {new CartesianPt(3,4))? 


So hnallv, what is the value of 

new CartesianPt(3,4) 

loscrTo()( new ManhattanPt( 1,5))? 


. c 
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Tlie definitions are nearly identical. The 
method for ManhattanPt consumes a 
ManhattanPt and determines which of those 
two points is closer to the origin. 


class ManhattanPt extends Point p { 
int x; 
int y; 

ManhattanPt(int 


int ,y) { 


X 


1 

— l 


v = -y- } 


int distance ToO() { 


return x 4- y\ } 

boolean closerToOj ManhattanPt p) { 


return 

distance ToOQ < 


i 


p. distan ce ToO (); } 


} 


Fhis is the two charac ter symbol <=. 


1 2 <> 


false. 


127 


true, obviously. 


1 28 


false, and true is the value of 

new CartesianPt(3.4) 

. closer To 0 (new Cartesia n Pt (12,5)). 


120 


That's nonsense. 








131 


How can we fix that? 


We could replace 
(CartesianPt p) 


by 


(Point 1 ’ p) 

in the definition of closerToO for CartesianPt. 


132 


If we do that, can we still determine the 
value of 

p.distanceToO ()? 


Yes, because the definition of Point 17 
obligates every variant to provide a method 
named distanceToO. 


133 


Why does it help to replace (CartesianPt p) 
by (Point 17 p)l 


Everv CartesianPt is a Point 1 ’, and everv 

Ks' %• 

ManhattanPt is a Point 1 ’, too. 


134 


Here is the improved CartesianPt. 


Easy. 


class ManhattanPt extends Point 1 ’ { 
int x ; 
int y; 

ManhattanPt(int _x. int ,y) { 

x = _ x: 

y = -y-} 


int distanceToO () { 

return x + y\ } 

boolean closerToOi Point 1 ’ p) { 

return 

distanceToO() < p.distanceToO(); } 


} 


Improve the definition of ManhattanPt. 
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Is the definition of closerToO in CartesianPt 
the same as the one in ManhattanPt? 


Yes, they are identical. 
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Correct, and therefore we can add a copy to 
the abstract class Point p and delete the 
definitions from the variants. 


Looks correct . 


abstract class Point p { 
boolean closer'ToO 1 (Point p p) { 

return 


abstract int distanceToO {): 


1 


The method closerToO is a template and the method 

thod pattern 


} 


distanceToO is a hook 
instance [4]. 


i • • v 
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What else do the two point variants have in 
common? 


Their fields. Shouldn't we lift them, too? 


138 


Yes. It s tricky, but here is a start. 


This not only lifts x and 
a new constructor. 


y, it also introduces 


abstract class Point^ { 
int x: 

I 

int y: 

Point r> (int 


int ,y) { 


_:r 


‘ I 


X 


r * 
* 


y = -r, } 


boolean doserToO (Po\nt v p) { 

return 

distance ToO () < p.distanceToO (); } 
abstract int distance ToO (); 




1 3 9 


Absolutely. And we need to change how a 
CartesianPt is built. Define ManhattanPt. 


Mimicking this change is 
does super (_x,_y) mean? 


easy. But w 


class CartesianPt extends Point p { 
CartesianPt(int -jyint _y) { 
super (-.r,_y); } 


class ManhattanPt extends Point p { 
ManhattanPt(int ^r.int _y) { 
super {-x,-y); } 


int distanceToO () { 

return 


int distanceToO () { 

return x + y\ } 


2 


.2 


; 
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The expressions super (-X,.y) in the 
constructors CartesianPt and ManhattanPt 
create a Point 2 ^ with the appropriate fields, 
and the respective constructor guarantees 
that the point becomes a Cartesian Pt or a 
ManhattanPt. 


141 


Do we now have everything that 
characterizes Point^s in the datatype? 


Yes, and those things that distinguish the 
two variants from each other reside in the 

corresponding variants. 


142 


Is this a long chapter? 


Yes, let’s have a short snack break. 
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Looks like good toppings. Let's add Sausage. 

class Sausage extends Pizza p { 

Pizza p p\ 

SausagefPizza 15 _p) { 

V = -p; } 


Do you like to eat pizza? 


abstract class Pizza p { 

( Pizza 


class Crust extends Pizza p { 

Crust 1 


Sausage 






class Cheese extends Pizza p { 
Pizza 1 ^ p\ 

Cheese(Pizza p _p) { 

P = -P\ } 


r 


Cheese 






class Olive extends Pizza p { 
Pizza p p\ 

Olive(Pizza r> _p) { 

P = -p\ } 




Olive 




class Anchovy extends Pizza p { 
Pizza p p; 

Anchovy(Pizza r * _p) { 

P = -PI } 


Anchovy 


} 
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Urn' is our favorite 


pizza: 


new Anchovy( 
new 0live( 
new Anchovy! 
new Anchovy! 
new Cheese( 
new Crustf)))))). 


How about removing the anchovies? 


Let's remove them. What is the value of 
new Anchovy! 
new Olivef 
new Anchovy! 
new Anchovy! 
new Cheese( 
new 

. trmA 1 ()? 


i 


\ I>rt 1 1 i r name for these methods would be removeAnchovy, 
1 m 1 1 t hmi our definit ions wouldn't fit into these columns. 


\\ hat is the value of 
new Sausage! 
new Olive! 
new Anchovy! 
new Sausage! 
new Cheese( 
new 
• 10 ? 


. n m. 


V 


Does rctnA belong to the datatype Pizza 

and its variants? 


14 


This looks too sal tv. 


That would make it less saltv. 


It should be a cheese and olive pizza, like 
this: 


new Olive( 
new Cheese! 
new Crust())). 


It should be a cheese, sausage, and olive 
pizza, like this: 

new Sausage( 
new Olive( 

new Sausage( 
new Cheese{ 
new Crust())))). 


Yes, and it produces them. too. 



Define the methods that belong to the five 
variants. Here is a start. 


We didn't expect you to know this one. 


The Olive and Sausage methods are similar 
to the Cheese method. 


Define the two methods that belong to Olive 
and Sausage. We’ve eaten the cheese already. 


v 


remA () { 


Pizza 

return new Sausage(p.reno4()); } 


Sausage 


The cheese, the olives, and the sausages on 
the pizzas must be put back on top of the 
pizza that p.remAQ produces. 


Explain why we use 
new Cheese .. 
new Olive ..., and 
new Sausage ... 

'l 

when we define these methods. 


• ? 


10 


T> 


Yes, and now the methods of remA produce 
pizzas without any anchovies on them. 


The methods remA must produce a Pizza 
so let’s use new Crust(), the simplest Pizza 
for the method in Anchovy. 


v 
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1 i 


Lot's try it out on a small pizza: 
new Anchovy( 

new Crust()) 

. rnnAi ). 


That’s easy. The object is an Anchovy. So 
the answer is new CrustQ. 


12 


Absolutely, but what if we had more 

k ' • 

anchovies? 


Is 


new Crust() 


like 


new Anchovy( 
new CrustQ) 

without anchovy? 


id 


That’s easy again. As before, the object is an 
Anchovy so that the answer must still be 
new CrustQ. 


No problem. Here is an example: 

new Anchovy( 
new Anchovy( 
new CrustQ)) 

. n in A (). 


Id 


Well, this object is an Olive and its p stands 


Okav, so what if we had an olive and cheese 

* 

on top: 

new Olive( 

new Cheese( 
new Anchovy( 
new Anchovy( 
new CrustQ)))) 

.nniA(Y! 


for 


new Cheese( 

new Anchovy( 
new Anchovy( 
new CrustQ))). 


i r> 


It is the pizza that 

new Cheese( 
new Anchovy( 
new Anchovy( 
new CrustQ))) 

. re mA () 

produces, with an olive added on top. 


Then, what is the value of 
new 01 i ve ( p . re in A ()) 
wliert 

new Cheese( 
new Anchovy( 
new Anchovy( 

new CrustQ)))? 


' p stands for 


-lb 



What is the value of 


new Cheese( 
new Anchovy( 
new Anchovy( 
new Crust()))) 

.remA()l 


new Cheese(p.reraAQ), 
where p stands for 


new Anchovy( 
new Anchovy( 
new 


CrustQ)). 
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And what is the value of 

new Cheese( 

new Anchovy( 
new Anchovy( 
new Crust())) 

.remA())? 


It is the pizza that 

new Anchovy( 
new Anchovy( 
new Crust())) 

. remA() 

produces, with cheese added on top. 


18 


Do we know the value of 
new Anchovy( 
new Anchovy( 
new Crust())) 

.remA()l 


Yes, we know that it produces new Crust(). 


19 


No, we still have to add cheese and an olive. 


Does that mean that new CrustQ is the 
answer? 


20 


Does it matter in which order we add those 
two toppings? 


Yes, we must first add cheese, producing 

new Cheese( 
new CrustQ) 

and then we add the olive. 


21 


So what is the final answer? 


It is 


new 0live( 
new Cheese( 
new CrustQ)). 


What’s New? 
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Let's try one more example: 

new Cheese( 
new Anchovy( 

new Cheesef 
new Crust!)))) 


. rrmA {). 

What kind of pizza should this make? 


2d 


Cheek it out! 


24 


Doesn't that mean that the result is 
new Cheese( 
new Anchovy( 

new Cheese! 
new Crust())) 


\ '> 


. rein. 


25 


What about 
new Anchovy( 

new Cheese( 

new Cmst())) 

. tvmA ()? 


2b 


And the answer is 
new Crust()? 


27 


Dot's that mean the final answer is 

new Cheese( 
new Crust())? 


48 


It should be a double-cheese pizza. 


The object is an instance of Cheese so the 
value is 

new Chees e(p.rernA()) 

where p stands for 

new Anchovy( 
new Cheese( 
new Crustf))). 


Yes. it puts the cheese on whatever we get 


for 


new Anchovy! 
new Cheese( 
new CrustQ)) 

. re in A (). 


Now the object is an anchovy. 


Yes, but we need to add cheese on top. 


Yes, though it's not the answer we want. 




What do we want? 


A double-cheese pizza like 

new Cheese( 
new Cheese( 
new Crust())), 

because that’s what it means to remove 
anchovies and nothing else. 


29 


Which remA method do we need to change 
to get the cheese back? 


The one in Anchovy. 


30 


Does this remA still belong to Pizza 1 *? 


Yes, and it still produces them. 


The Third Bit of Advice 


When writing a function that returns 
values of a datatype, use new to create 
these values. 


31 


We could add cheese on top of the anchovies. 


Yes, that would hide their taste, too. 


32 


What kind of pizza is 

new Olive( 
new Anchovy( 
new Cheese( 
new Anchovy( 
new Crust())))) 

. topAwC 1 ()? 


Easy, it adds cheese on top of each anchovy: 

new Olive( 
new 


new Anchovy( 

new Cheese( 

new Cheese f 
new Anchovy( 


new CrustQ)))))). 


l 


A better name for these methods would be 
topAnchovyvithCheese. 


33 


Did you notice the underlines? 


Yes, they show where we added cheese. 


What’s New? 
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And what i 


Here we don't add anv cheese, because the 

c-' 

pizza does not contain any anchovies: 


new 01ive( 
new Cheese( 
new Sausage( 
new CrustQ))) 


new Olive( 
new Cheese( 
new Sausage( 
new 


.topA wC ()? 


Crust ())}). 


35 


Define the remaining methods. 


We expect you to know 


7 some of the answers. 


- 1 




abstract Pizza p topAwC 




t 


return new Chees e(p.topA 


Pizza 


i 


..J 


L- 




• ™ > 




J 




.■ k 




. • i. 




r 


^ - • 


V 


• • • 


r 


top A wC{) { 


Pizza 

return new CrustQ; } 


Pizza p topA wC () { 


I 


return new 










k. 


Olive 


I 


J 




-i^ a m 




AwC () { 




I 


return new Sausage{p.topA wC {) i: 


•• ) 


i 


Sausage 




3H 


ce a look at this method. 


m 


♦ • 


at definition. topAwC would give the 


i 


i 


i 


A. The method top AwC 


\ • 


1 


same 

in Anchovy must put the anchovy back on 
the pizza and top it wi 






as re. 


I 


'k. 


v 


top AwC () { 


Pizza 
return 




Anchovv 


v 


top AwC () { 


Pizza 
return 
new Cheese( 
new Anchovy(p. top A 


4 -' 




r 


Anchovv 
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c 
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One, because remA removes all the 
anchovies, so that topAwC doesn’t add any 
cheese. 


How many layers of cheese are in the result 


of 


(new Olive( 
new Anchovy( 
new Cheese( 
new Anchovy( 
new Crust())))) 


.remAQ) 
.topAwC ()? 


38 


first adds cheese for 


How many occurrences of cheese are in the 
result of 


Three, because topAwC 
each anchovv. Then remA removes all the 


(new Olive( 
new Anchovy( 
new Cheese( 
new Anchovy( 

new Crust())))) 


anchovies: 

new Olive( 
new Cheese( 
new Cheese( 
new Cheese( 
new Crust())))). 


.topAwC ()) 
.remAQ? 


39 


Perhaps we should replace every anchovy 
with cheese. 


We just did something like that. 


40 


Is it true that for each anchovy in x 

x.topAwC () .remAQ 

adds some cheese? 


Yes, and it does more. Once all the cheese is 
added, the anchovies are removed. 


41 


Aha! 


So 


x. top A wC (). remA () 

is a way to substitute all anchovies with 
cheese by looking at each topping of a pizza 
and adding cheese on top of each anchovy 
and then looking at each topping again, 
including all the new cheese, and removing 
the anchovies. 


What’s New? 
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Here is a different description: 


Tht 1 methods look at each topping of a 


* b 


pizza and replace each anchovy with 


« 1 


cheese. 


Define the methods that match this 


Crust 


description. Call them subAbC. 1 He 


abstract- method. 


p 


abstract Pizza 


Pizza 


Cheese 


I 

i 


v 


subAbC () { 


Pizza 


subAbC ()); } 


return new Olive(p 


• t 


Olive 








v 


subAbC () { 


i 


; 


return 


i 1 


Anchovv 




~ ■ • • 


v 


subAbC () { 


Pizza 


subAbC()): } 


return new Sausage(p. 


Sausage 


i 


A better name fur those methods would be 


substituteAnchovybyCfteese. 






Yes, this skeleton looks 


Does this skeleton look familiar? 


just like those of 


AwC and remA. 


44 


Define the method that belongs in Anchovy. 


Here it is 




v 


subAbC() { 


Pizza 

return new Cheese( p.$ubAbC()): } 


Anchovv 


V 


A — * V ■ ■ 


Chapter 3 


rw 









Collection time. 


class Cheese extends Pizza v { 


Pizza 15 


p; 


Cheese(Pizza r * _p) { 
P = -p; } 


r> 


rerm4() { 


Pizza 

return new Cheese(p.rerayl()); } 
Pizza 15 topAwC() { 
return new Chees e(p.topAwCQ); } 
Pizza 15 subAbC() { 

return new Cheese^.suMfrCQ); } 


} 


1 


This is similar to the inter'preter and composite 
patterns [4]. 
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46 


V 


Let’s add more Pizza 


foods. 


47 


Here is one addition: Spinach. 


class Spinach extends Pizza p { 


v 


p; 


Spinach(Pizza p -p) { 

v = -p; } 


D 


remA() { 

return new Spinach(/>.reraA()); } 
Pizza p topAwC() { 
return new Sp\nach(p.topAwCQ); } 
Pizza D subAbCQ { 
return new Spinach(p.subAb(7()); } 


Pizza 




48 


V 


, Crust, Cheese 


Do we need to change Pizza 
Olive, Anchovy, or Sausage? 


49 


Isn’t that neat? 


50 


True enough. And that means cluttered 
classes. Is there a better way to express all 
this? 


51 


Don't worry. We are about to discover how 

t.- 

to make more sense out of such things. 


52 


And now you can replace anchovy with 
whatever pizza topping you want. 


o- 



Good idea. 


Yes, we must define three 
for each variant of Pizza p . 


concrete methods 


No. When we add variants to the datatypes 
we have defined, we don’t need to change 
what we have. 


Yes, this is a really flexible way of defining 
classes and methods. Unfortunately, the 
more 

more methods we must add. 


v.. 


things we want to do with Pizza 


s. x 


That would be great, because these 
definitions are painful to the eye. But we 
don’t know of a better way to organize these 
definitions vet. 


G reat. 


We will stick with anchovies. 











Wasn’t this last collection overwhelming? 


It sure was. We defined seven classes and 
each contained three method definitions. 


It sure could. For everything we want to do 
with Pizza p , we must add a method 
definition to each class. 


Could it get worse? 




Why does that become overwhelming? 


Because it becomes more and more difficult 
to understand the rationale for each of the 
methods in a variant and what the 
relationship is between methods of the same 
name in the different variants. 


Correct. Let’s do something about it. Take a 
close look at this visitor class. 

i 

class OnlyOnions v { 
boolean for Skewer () { 

return true; } 

boolean forOnion(Sh\sh T> s) { 
return s. only Onions (); } 
boolean for Lamb (SU\sh v s) { 
return false; } 

boolean for Tomato (Sh\sh v s) { 
return false; } 


These methods look familiar. Have we seen 
them before? 


} 


v 


This superscript is a reminder that the class is a visitor 
class. Lower superscripts when you enter this kind of 
definition in a file: OnlyOnionsV. 


Almost. Each of them corresponds to an 
onlyOnions method in one of the variants of 
Shish p . 


That’s right. The major difference is that 
they are all in one class, a visitor, whose 
name is OnlyOnions v . 


Is onlyOnions different from OnlyOnions v ? 


The former is used to name methods, the 
latter names a class. 


Come to Our Carousel 
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What point? 


And that's 


W hat methods 


We want all the methods m one class. 


If we could do that., it would lie much easier 
to understand what action these methods 
perform. 


Those methods that would have the same 
name if we placed them into the variants of a 
datatype in out 


10 


That's what we are about to do. We are 
going to separate the action from the 
datatype. 


It's about time. 


1 1 


Everything following return is the same. 


W hat is thi' difference between the method 
onhjOmons in the Onion variant and the 

method forOnion in the visitor 0nly0nions v ? 


12 


ions in Onion is 


Right. What is the difference? 


The difference is that only On 
followed by ( ) and that forOnion in 
0nly0nions v is followed bv (Shish p ,s). 


Id 


Yes. that is the difference. Are the other for 
methods in 0nly0nions v related to their 
counterparts in the same way? 


Indeed, tliev are. 


14 


It is time to discuss the boring part. 


What boring part? 


15 


The boring part tells us how to make all of 
this work. 


True, we still don't know how to make 
Shish p and its variants work with this visitor 
class, which contains all the action. 


Chapter 4 
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Now take a look at this. 


This is a strange set of definitions. All the 
onlyOnions methods in the variants look 
alike. Each of them uses an instance of 
OnlyOnions v , which is created in the 
datatype, to invoke a for method with a 
matching name. 


abstract class Slush 15 { 

OnlyOnions v ooFn 
abstract boolean onlyOnions{)\ 


OnlyOnions v (); 


new 


} 


class Skewer extends Shish^ { 

boolean only Onions () { 
return ooFn . for Skewer 0: } 
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17 


What does the forOnion method in Onion 
consume? 


18 


That's what "consumption” is all about.. 
And what does the for Skewer method in 
Skewer consume? 


19 


So what does the (Shish p s) mean in the 
definition of forOnion! 


20 


(Shish p s) 


Very good. The notation 
that forOnion consumes a Shish p and that 
between { and }, .s stands for that shish. 


means 


21 


s. only Otu ons (). 


Explain 


22 


ooFn. forOnion (s). 


Explain 


23 


So what is the value of 
new On ion ( 
new Onion( 
new SkewerQ)) 

.only Onions ()? 


24 


And how do we determine that value with 
these new definitions? 


60 


If “consume 


refers to what follows the name 
between parentheses, the method consumes 
s, which is the rest of the shish. 


Nothing, because a skewer 


is the basis of a 


shish and therefore has no fields. 


It is always the rest of the shish, below the 
top layer, which is an onion. In other words, 
it is evervthing but the onion. 

ty o 


That makes sense and explains 
s. only Onions (). 


Here are our words: 

u s is a Shish p , and therefore s. only Onions 
determines whether what is below the 
onion is also edible bv an onion lover." 


0 


You knew we wouldn't let vou down: 

“ oo Fn.for Onion says that we want to use 
the method we just described. It consumes 

a Shish 1 ^, and s is the Shish p that 

is below the onion." 


It is still true. 


We start with the only Onions method in 
Onion, but it immediately uses the forOnion 
method on the rest of the shish. 


And what does the forOnion method do? 


26 


It uses the method only Onions on s. 


How does it do that? 


27 


Isn't that where we started from? 


Yes, we're going round and round. 


28 


Welcome to the carousel. 


Fortunately, the shish shrinks as it goes 
around, and when we get to the skewer we 
stop. 


29 


And then the ride is over and we know that 
for this example the answer is true. 


That’s exactly it. 


30 


No! Now that we understand how the 
separation of data and action works, we only 
need to look at the action part to understand 
how things work. 


Do we need to remember that we are on a 
carousel? 


31 


Is one example enough? 


No, let’s look at some of the other actions on 
shishes and pizzas. 


32 


Let’s look at isVegetarian next. Here is the 
beginning of the protocol. 


What about it? 


l 


abstract class Shish^ { 

OnlyOnions v ooFn = new 0nly0nions v (); 
lsVegetarian v ivFn = new lsVegetarian v (); 
abstract boolean onlyOnions (); 
abstract boolean isVegetarianQ; 




l 


The American Heritage Dictionary defines protocol as 
[t]he form of ceremony and etiquette observed by diplomats 
and heads of state.'' For us, a protocol is an agreement on 
how classes that specify a datatype and its variants interact 
with classes that realize functions on that datatype. 
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We must add two lines to each variant, and 
they are almost the same as those for ooFn. 




class Skewer extends Shish 7 '’ { 

boolean only Onions () { 
return ooFn.forSkewer (); } 
boolean isVegetarianQ { 
return ivFnJorSkewerQ; } 


} 




-1 


class Onion extends Shish 7 ^ { 

Shish p 

Onion(Shish r> _s) { 


5; 


- 5 ;} 


s 


boolean only Onions Q { 


return ooFn.forOnion(s); } 


boolean isVegetarianQ { 


return ivFn.forOnion(s); } 


} 


class Lamb extends Shish p { 


v 


Shish 


5; 


v 


S) { 


Lamb(Shish 


} 


s 


S 


boolean only Oni ons ( ) { 


return ooFn.forLamb(s): } 


boolean isVegetarianQ { 


return wFn.forLamb(s): } 


} 


ish p 


class Tomato extends 


Sh 


v 


Shish 


S’, 


Tomato(Shish 




S 


s: 


boolean o nly On ion s () { 


return ooFn.forTomato( 


) 


s 


boolean isVegetarianQ { 


return ivFn.forTomato(s)\ } 

i * 










That’s why we call this part boring. 


True, there’s very little to think about. It 
could be done automatically. 


35 


How do we define the visitor? 


Does that refer to the class that contains the 
actions? 


36 


Yes, that one. Define the visitor. 


It is like OnlyOnions v except for the method 
forTomato. 

■ I * m IMMI , m — — ■ ■ I 

class lsVegetarian v { 
boolean forSkewer() { 

return true; } 

boolean for Onion (SW\sh v s) { 
return s.isVegetarian (); } 

boolean forLamb(SW\sh v s) { 
return false; } 

boolean for Tomato (Shish^ s) { 
return s.isVegetarian(); } 


} 


37 


Are we moving fast? 


Yes, but there are only a few interesting 
parts. The protocol is always the same and 
boring; the visitor is always closely related to 
what we saw in chapter 2. 


38 


How about a tea break? 


Instead of coffee? 


The Fourth Bit of Advice 


When writing several functions for the 
same self-referential datatype, use 
visitor protocols so that all methods for 
a function can be found in a single 

class. 
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new Anchovy( 




abstract class Pizza 15 {} 


new 01 i ve ( 


new Anchovy( 


new Cheese( 


class Crust extends Pizza 15 {} 


new Crustf))))) 


a shish kebab? 


V 


class Cheese extends 


P 


i 


Pizza 25 p\ 


v 


p) { 


Cheese( Pizza 


p-, } 


p 






class Olive extends Pizza p { 


Pizza p 


Pi 


V 


-p) { 


Olive(Pizza 

p = -p; } 






class Anchovy extends Pizza p { 
Pizza p p; 

Anchovy(Pizza 

P = -p; } 


v 


P) { 


I 

I 


I 


} 


I 




class Sausage extends Pizza 15 { 
Pizza 

Sausage(Pizza 

V = -p; } 


v 


p\ 


i 


V 


p) { 


} 


40 


So what do we do next? 


We can define the protocol for the 
that belong to Pizza 15 and its extensions: 
Tern A, topAwC , and subAbC. 


Chapter 4 


64 









Great! Here is the abstract portion of the 
protocol. 


How innovative! The variants are totally 
mindless, now. 


abstract class Pizza 15 { 

RemA v remFn = new RemA v (); 
TopAwC v topFn = new TopAwC v (); 
SubAbC v subFn = new SubAbC v (); 
abstract Pizza 15 remA{)\ 
abstract Pizza 25 topAwC{)\ 
abstract Pizza 25 subAbC()\ 


} 


And here are some variants. 


class Anchovy extends Pizza 25 { 
Pizza 25 p\ 

Anchovy( Pizza 25 _p) { 

P = -p; } 

Pizza 25 remAQ { 
return remFn.forAnchovy (p); } 
Pizza 25 topAwC() { 

return topFn. for Anchovy (p): } 

Pizza 25 subAbC{) { 
return subFn.for Anchovy (p); } 


} 


class Sausage extends Pizza p { 
Pizza 25 p\ 

Sausage(Pizza 25 _ p ) { 

P = -P\ } 

Pizza 25 remA() { 
return remFn.forSausage(p); } 

Pizza 25 topAwC() { 
return topFn.forSausage(p); } 
Pizza 25 subAbC() { 
return subFn.forSausage(p): } 


Define the rest. 


} 


Come to Our Carousel 


65 








i 


•orrespond to the methods 


rerun 


c 


and subAbC ? 


43 


By now, even this is routine. 


Okav, here is RemA v . 


. —— - 


* *- — — 


class TopAwC v { 

Pizza p for Crust () { 
return new Crust(): } 

Pizza p forCheesel Pizza p p) { 
return new Chees e(p.top. 

Pizza p forOlive (Pizza 
return new 0\ive(pJopAu 
Pizza p for Anchovy (P\zzaP p) { 

return 
new Cheese( 
new Anchovy (p.topA 

forSausage (Pizza v p) { 
return new Sausag e(p.topAwCQ); } 


class RemA v { 

for Crust () { 

return new Crust(); } 


p 


eesei Pizza p 


p) i 


Pizza L forCh 




return new Chees e(p.remA()); } 
Pizza p forOlwefP izza p p) \ 
return new 0live(p.rrm.4()): } 

P i zza p fo rA n cho vy (P izza 
return p.remA()\ } 

P izza p for Sausage (P izza 
return new Sausage( p.n 


1 ix 


v 


p) { 


( 


or- \ 


•r 


p 


){ 




y 


v 


\ 




?) 


t' ) 


irCiU): } 


mA()); } 


> ' 


P 


} 




Define TopAwC v . 




44 


And we thought we were working with a 
pizza pie. 


The last one. SubAbC v \ is a piece of cake. 






class SubAbC v { 
Pizza 


p 


for Crust () { 


l 


return new CrustQ; 

Pizza p forCheese (P\zza v p) { 


i 


return new Cheese(;ps 

Pizza p for Olive (P izza p p) { 
return new Oi 


\ve(p.subAbC())\ } 


v 


p 


p) { 


fo r A n (• h o vy (Pizza 


Pizza 


return new Cheese( 
Pizza 


p 


p 


p) { 


for Sans ay e( Pizza 


return new Sausage(p..s?d;A6C Y ( l); } 


\ 


f 
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What? More pizza! 


Have we seen this kind of definition before? 1 


1 


Better names for these classes would be PizzaPieD, Bottom 
and Topping, respectively. 


Yes. still more pizza, but this one is different. 


Yes, it includes only one variant for adding 
toppings to a pizza, and toppings are Objects. 


Any kind, because Object is the class of all 
objects. Here are some fish toppings. 


What kind of toppings can we put on these 
kinds of pizza? 


class Salmon extends Fish 75 {} 
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Nice datatype 

new Top(new Anchovyf). 
new Top(new Tuna(). 
new Topfnew Anchovy(), 
new Bot()))) 


v pizza pie, and so is 

new Top(new Tuna(), 
new Top(new lnteger(42), 
new Topfnew Anchovyf). 
new Topfnew lnteger(5). 
new Bot())))). 


a pizza pie: 


r» 


What is the value of 

new Topfnew Salmonf). 

new Topinew Anchovyf), 
new Topfnew Tunaf), 
new Topfnew Anchovyf). 
new Botf))))) 

wA {)? 


It is this fishy pizza pie: 


new Topfnew Salmonf). 
new Topfnew Tunaf). 
new Botf))). 


, n 


<> 


Is it trm* that the value of 
new Topfnew Salmonf ), 
new Topfnew Tunaf), 
new Botf))) 

.muA () 


Yes. Till' pizza that comes out is the same as 
the one that goes in, because there an* no 
anchovies oil t hat pizza. 


is 


new Topfnew Salmonf). 
new Topfnew Tunaf), 
new Botf)))? 


to Pie p ? 


Yes, and it produces pizza pies. 


Does rnnA belon 


l> 




S 


Di'fine the protocol for RemA v . We provide 
the abstract part. 


This is easy bv now. 


Pie p tvmAQ { 
return raFn.forBot (): } 


v 


new RemA v (); 

l • 

rrm.4(); 


RemA 


raFn 

abstract Pie 


v . 


13 ot 


Pie 


] 


i 


Pie p rcrnAQ { 
return raFn.forTop (/./); } 


Top 
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Easy and boring. 


What part of this exercise differs from 
datatype to datatype? 


Determining how many fields a variant 
contains. In our case, we had zero and two. 


11 


Anything else? 


No, from that we know that raFn.forBot is 
followed by () and raFn.forTop by (t.r). 


12 


Because these are the fields of Top. 


Why (t,r)? 


13 


Let’s define the visitor RemA v . 


Here are some guesses. 


class RemA v { 

P\e v forBotQ { 
return new Bot(); } 

P\e v for Top (Object t,P'\e v r) { 
if (new Anchovy (). equals(t)) 
return r.remA (); 
else 

return new Top(Tr.reraAQ); } 


} 


14 


Great guesses! What does 
if (expr i) 

return expr 2 ', 

else 


We guess: 

“This produces the value of either expr 2 or 
expr 3 , depending on whether or not expr\ 
is determined to be true or false, 
respectively.” 


return expr$\ 


mean? 


15 


And what does 

new knchovy (). equals (t) 
mean? 


We could guess: 

“This expression determines whether t is 
equal to new Anchovy().” 


16 


Not yet. It depends on what equals means. 


What? 
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What is the value of 


new Anchovy( ). equals (new Anchovy())? 


\es! And what is the value of 


A n c h o vy (). eq u a Is (n ew Tu n a ()) ? 


new 


1 9 


contains a method called 


If we know that equals 's answei 


equals. This method compares one Object to 


false, whv bother to use it? 


1 


another, and it always returns false. 


i 


Not always. We explain the correct ans 


in chapter 10. 


rc% 


20 


Okay. How? 


A 


We must define it anew 


for all classes whose 


instances we wash to compare. 


i 


overriding. 


U 


redefining a method is called 


In Java, 


21 


Assuming that 

{o instanceof Tuna ) 

is true when o is an instance of Tuna, those 
method definitions are 


For Fish ^ and its variants it works like this. 


v-— 


abstract class Fish p {} 


~ 1 


i J ♦ 


class Anchovy extends Fish^ { 
public 1 boolean equals (Object o) { 
return (o instanceof Anchovy); } 


12 


class Salmon extends Fish^ { 
public boolean equals (Object o) { 
return (o instanceof Salmon); } 


} 


•- — — 




class Tuna extends Fish r) { 
public boolean equals( Object o) { 
return (o instanceof Tuna); } 


l , 


Tiie dass Object is defined in a separate package, railed 
java. lang.Object. Overriding methods that reside in other 
packages requires the word public. 




A 


5 


9 


I 







22 


Yes. Every such value is an Object, because 
every class extends Object directly or 

indirect lv. 


Aren't they? Is every value constructed with 
new an instance of Object? 


23 


If class A extends B , is every value created 
by new A {...) an instance of class B1 


Yes. and of the class that B extends and so 


on. 


24 


Now, what is the value of 

new Anchovy(),e<7wa/s(new Anchovy())? 


true. 


because new Anchovy() is an instance of 
Anchovy. 


25 


Yet the value of 

new Anchovy().e(7?m/s(new TunaQ) 
is still false. 


Of course, because an anchovv is never a 
tuna. 


26 


Absolutely, instanceof is enough. 


Could we have written RemA v without using 
equals ? 


class RemA v { 

Pie 17 forBot () { 

return new Bot(); } 

Pie 17 forTop( Object t.Pie 17 r) { 
if (t instanceof Anchovy) 

return r.remA()\ 

else 

return new Top(t,r.rcmA()); } 


} 


Why haven't we defined it this wav ; 


r? 


27 


Easy, because we want to generalize RemA v 
so that it works for any kind of fish topping. 


We can do that, but when we use the 
methods of the more general visitor, we need 
to say which kind of fish we want to remove. 


28 


What are good names for the more general 
methods and visitor? 


How about remFish and RemFish v ? 
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How do we use remFish ? 


30 


Add the protocol for RemFish v . We designed 
the abstract portion. 


Rem Fish v rfFn 
abstract Pie p r'eniFish (F\sh v /); 


RemFish v (); 


new 


Pie 


31 


Where do (/) and 


( t , i\f ) come from? 


3 2 


Let's define Rem Fish v and its two methods. 


3 ' 


If we add another kind of fish to our 

datatype, what would happen to the 
definition of RemFish v ? 


74 


The rest is routine 


return rfFn.forBot(f): } 


Bot 


Pie p rernFish(F\sh D /) { 
return rfFn.forTop(t ,r ./): } 


Top 


The / stands for the Fish ^ we want to 

The t and the r are 
the fields of Top; Bot doesn’t have any. 


5 in both cases. 


remove 


Instead of comparing the top layer t of the 


pizza to Anchovy, we now determine whether 
it equals the Fish p /. which is the additional 

value consumed bv the method. 


class RemFish v { 

Pie p forBot{ Fish p /) { 
return new Bot(); } 
Pie p for Top (Object t, Pie 
if (/. equals(t)) 
return r. remFish (/) 
else 

return new Top (/,7 


v 


Fish 7 /) { 


r, 






Nothing, we just have to remember to add 
equals to the new variant. 
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The object is a topping, so we use forTop 
from RemFish v . 


Let’s try it out with a short example: 

new Top(new AnchovyQ, 
new BotQ) 

.remFish( new AnchovyQ). 


35 


It consumes three values: new AnchovyQ, 
which is t, the top-most layer of the pizza; 
new BotQ, which is r, the rest of the pizza; 
and new AnchovyQ, which is /, the Fish ^ 5 to 
be removed. 


Yes. What values does forTop consume? 


36 


And now? 


Now we need to determine the value of 

if (/. equals (Q) 
return r.remFish(f); 

else 

return new Top (t,r.remFish(f)); 

where t, r, and / stand for the values just 
mentioned. 


37 


So? 


Given what / and t stand for, f.equals(t) is 
true. Hence, we must determine the value of 
r.remFish(f). 


38 


What is the value of 

new BotQ 

.remFish( new AnchovyQ)? 


It is the same as 
forBot(f), 

where / is new AnchovyQ. 


39 


What does forBot in Rem Fish v produce? 


It produces new BotQ, no matter what / is. 


40 


All clear? 


Ready to move on, after snack time. 
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Yes, it looks like what we just evaluated. 


new Top(new lnteger(2). 
new Topfnew lnteger(3). 
new Topfnew lnteger(2). 

new Bot()))) 

• • 

. inn Int{ new Integerf 3)) 
look familiar? 


i'2 


What does it mint do? 


It removes Integers from pizza pit's just as 

ish removes fish from pizza pies. 


n 


IT 


quids for Integer? 


Who defined 


The Machine decided 


c 


new Integer(O) .equals (new Integer!0)) 
to be true, and the rest was obvious. 


M 


! Wo do the interesting thing first. 
This visitor is almost identical to RemFish v . 
We just need to change flit' type of what the 
two methods consume. 


Define the visitor Remint . 


'iV 


class Remlnt v { 

Pie p forDot( Integer /) { 
return new Bot(): } 
Pie p for Top (Object / , Pie 


v 


Integer ■/) { 


r 


return r.nmint ( i ); 
else 

return new Top( t.r. remlnt( i )); } 


} 


•i r, 


Does it matter that this definition uses / and 
not /? 


No, i is just a better name than /. no other 
reason. As long as we do such substitutions 

1 are just fine. 


VV( 




\Y’here is the protocol? 


It is so simple, let’s save 1 it for later. 
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Can we remove Integers from Pier’s? 


Yes, and we use nearly identical definitions. 


Can we remove Fish 15 from Pie^s? 


If we use Object instead of the underlined 


Let’s combine the two definitions. 


Integer above, everything works out. 


Why? 


Because everything constructed with new is 
an Object. 


51 


Just do it! 


It’s done. 


52 


Should we do the protocol for all these 
visitors? 


Now? 


53 


You never know when it might be useful, 
even if it does not contain any interesting 
information. 


Let’s just consider Rem v . 


54 


Why not Rem Fish v and RemA v and 
Remlnt v ? 


They are unnecessary once we have Rem v . 
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r r 




And here are the pieces for Bot and Top. 


Here is the* abstract portion of Pie . 


i 


class Bot extends Pie p { 
Pie p -rem(Object o) { 

return rvmFn.foi'Bot(o): } 


abstract class Pie p { 

\ 1 

Rem rtniFn 
abstract Pie 


new Rem v (): 
n in (Object o); 


p 


} 


} 


mm * M 


• — 


class Top extends Pie r { 
Object t: 

Pie p 

Top(Object _TPie 


» * 


7 


V 


• { 


_r 


t 


J; 


} 


r 




Pie 11 wm(Object o) { 
return n mFn.forTop( t,r,o 


); } 


} 


J 


rid 


la't's rt'inovc 1 some things from pizza pies: 

new Top(new lnteger(2), 
new Top(new lnteger(3). 
new Top(new lnteger(2), 

new Bot()))) 

.n ///(.new Integer(3)). 


Works like a charm with the same result as 

before. 


► > f 


Ditto. 


And how about 

new Top(new Anchovy(). 

new Bot()) 

./•/ ///(new Anchovy())? 


r»s 


No problem. This, too, removes 3 and leaves 
the other lavers alone: 

v 1 

new Top(new Anchovy(), 
new Top(new Zero(). 
new Bot())). 


Next: 

new Top(new Anchovy(), 
new Top(new lnteger(3), 
new Top(new ZeroQ, 
new 

.// ///(new I nteger(3)). 




( 
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Oops. The answer is 

new Topfnew AnchovyQ, 
new Top (new lnteger(3) 
new Top(new ZeroQ. 
new Bot()))). 


What is the value of 

new Top(new AnchovyQ, 
new Top(new lnteger(3), 
new Top(new Zero(), 
new Bot()))) 
.rem(new Zero())? 


60 


What’s wrong with that? 


We expected it to remove new ZeroQ from 
the pizza. 


61 


And why didn’t it? 


T> 


Because equals for Num 
equals , which always produces false 
discussed above when we introduced equals. 


uses Object' 


as we 


62 


Always? 


Unless we define it anew for those classes 
whose instances we wish to compare. 


63 


Here is the version of Num p (including 
OneMoreThan) with its own equals. Define 
the new Zero variant. 


Adding equals to 


Zero is easv. 


We use 

instanceof to determine whether the 


consumed value is a new ZeroQ. 


class Zero extends Num p { 
public boolean equals (Object o) { 
return (o instanceof Zero); } 


class OneMoreThan extends Num 11 { 
Num 15 predecessor ; 
OneMoreThan(Num r) _p) { 

predecessor — _p; } 




But what is the underlining of 
((OneMoreThan) o) 

about? Wouldn’t it have been sufficient to 
write o.predecessor! 


public boolean equals (Object o) { 
if (o instanceof OneMoreThan) 
return 

predecessor 
. equals ( 

((OneMoreThan) o ) 1 .predecessor); 


else 

return false: } 


i 




In Java, this is called (downward) casting, because 

OneMoreThan extends NumD. 
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So what is o.predecessor : 


Nonsense. 


66 


Correct. What do we know after if has 


We know that o' s type is Object 


is an instance of OneMoreThan. 


determined that 


(o instanceof OneMoreThan) 


is true? 


It converts the 


Precisely. So what does ((OneMoreThan)o) 


OneMoreThan. 


do? 


68 


Its type is OneMoreThan, and now it mak( 


What is ((OneMoreThan) o)'s type? 


sense to write 


((OneMoreThan) o).predece 


the two expressions 


not interchangeable, 


interchangeable? 


are 


because the former's type is Object, whereas 


the latter's is OneMoreThan. 


Is this 


71 


also notice the 


How do the two uses of 


Did vou 


predecessor' 


. equals ( 


((OneMoreThan) o ) .predecessor) 


in equals for OneMoreThan? 


72 


So the second one 


The first one, predecessor, refers to the 


((OneMoreThan) o).predecessor. 


predecessor held of the instance of 


OneMoreThan on which we are using equals. 


refers to the predecessor 


And that field might not be a OneMoreThan. 


of OneMoreThan consumed by equals. 
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Yes. Are these two objects equal? 


If they are similar 1 to the same int, they are 
equal. But most of the time, they are not. 


1 


Check chapter 1 for “similar. 
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Time for lunch? 


That’s just in time. 
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Did you have a good lunch break? 


Yes, thank you. 


76 


Now what is the value of 

new Top(new Anchovy(), 

new Top(new lnteger(3) 
new Top(new Zero(), 
new Bot()))) 
,rem(new ZeroQ)? 


Now we get 

new Top(new AnchovyQ, 
new Top(new lnteger(3), 
new Bot())), 

which is precisely what we want. 


77 


And why? 


Because equals now knows how to compare 

Num p s. 
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Do we always add equals to a class? 


No, only if we need it. 


79 


Do we need equals when we want to 
substitute one item for another on a pizza 
pie? 


Yes, we do. 


80 


What is the value of 

new Top(new Anchovy(), 

new Top(new TunaQ, 

new Top(new AnchovyQ. 

new Bot()))) 

.substFish(new Salmon(), 

new AnchovyQ)? 


It is the same pizza pie with all the anchovies 
replaced by salmon: 

new Top(new SalmonQ, 
new Top(new TunaQ, 
new Top(new SalmonQ, 
new BotQ))). 


81 


What kind of values does substFish consume? 


It consumes two fish and works on Pie p s. 
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HA 


What is the value of 


It is the same pizza pie 


new Top(new lnteger(3), 
new Top(new lnteger(2), 

new Top(new lnteger(3), 

new Bot()))) 

.,s abstint (new Integer(5), 

new I nteger( 3))? 


by 5s: 

\S 


new Top(new lnteger(5), 
new Top(new lnteger(2), 
new Top(new lnteger(5), 
new Bot()))). 


84 


What kind of values does substint consume? 


v.. 


It consumes two Integers and works on Pie 


s. 


85 


And what does it produce? 


It always produces a Pie r . 


8 b 


We can define SubstFish v . 


To get from SubstFish v to 5ubstlnt v . we just 
need to substitute Fish D by Integer 
everywhere and 'Fish" by 
and method names. 


class SubstFish v { 

Pie p forBot( Fish D n,Fish p o) { 
return new Bot(); } 

Pie r for Top (Object 


Int 1 ' in the class 


% - 


class Substlnt v { 

Pie p fovBotf Integer n ,Integer o) { 
return new Bot(); } 

Pie p for Top (Object f, 


p 


Pie 


r 


v 


Fish 
Fish^ o) { 


n, 


v 


if (o.equals(t)) 


Pie 


r 


return new Top (n,r.s 
else 


ro)): 


Integer n. 
Integer o) { 


return new Top(t,r.subs 


if ( o.equals(t)) 


} 


return new Top (/or 
else 


o)): 


substint {7i. 


• I 


o)): 


return new Top (t.r 


Define Substlnt v . 




} 
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Did we forget, the boring parts? 


Yes, because* there is obviously a more 
general version 


like Rem v . 


Chapter 


ft 
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We substitute Object for Fish p and Integer 


Yes, we call it Subst v . Define it. 


89 


The abstract part is obvious. 


Now it is time to add the protocol for Subst v 
to Pie p . Here are the variants. 


abstract class Pie p { 

Rem v remFn — new 
Subst v substFn = new Subst v (); 
abstract Pie p rem (Object o); 
abstract Pie p subst (Object n ,Object o); 


Rem v (); 


} 


90 


So? 


That was some heavy lifting. 
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Are protocols truly boring? 


We acted as if they were. 


Okay, here are the variants again. 


But, of course they are not. We just didn’t 
want to spend much time on them. Let’s 
take a closer look at the last one we defined 
in the previous chapter. 


abstract class P\e v { 

Rem v remFn = 

Subst v substFn 
abstract Pie^ rem(Object o); 
abstract P\e v subst( Object n.Object o); 


Rem v (); 
Subst v (); 


new 


new 


} 


The first one consumes one Object, the 
second one consumes two. 


What is the difference between rem and 
subst in Pie^? 


Simple: rem asks for the forBot service from 
remFn and hands over the Object it 
consumes; subst asks for the forBot service 
from substFn and hands over the two Objects 
it consumes. 


What is the difference between rem and 
subst in the Bot variant? 


What is the difference between rem and 
subst in the Top variant? 


Simpler: rem asks for the forTop service 
from remFn and hands over the field values 
and the Object it consumes; subst asks for 
the forTop service from substFn and hands 
over the field values and the two Objects it 
consumes. 
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And that is all there is to the methods in the 


But rerriFn and substFn defined 


of a protocol. 


datatype are still a bit mysterious. 


variants 


This looks like an obvious modification. The 
new rem and subst now consume a reniFn 
and a substFn. 


Let s not create reniFn and substFn in the 
datatype. 


respectively. Can they still 


m ^ 


abstract class Pie p { 
abstract Pie 


find forBot and for Top. their corresponding 


v 


7/7 (Rem v rerriFn. 


carousel partners? 


re 


Object o): 

abstract Pie p subst (Subst v substFn , 

Object n. 

Object o): 


\ 


_j 


• • • • • 


8 


The definition of the datatype says that the> 
are a Rem v and a Subst v , respectively. And 
every Rem v defines forBot and forTop. and 
so does every Subst v . 


Yes, it is a straightforward trade-off. Instead 
of adding a reniFn field and a substFn field 
to the datatype, we now have rerri or subst 
consume such values. What kind of values 
are consumed bv rem and subst ? 


9 


In the same manner. We just need to change 
each concrete method's description of what it 
consumes. The rest remains the same. 


Here 


is how it changes 


s Top. 




— * • 


I 


class Top extends Pie p { 
Object f: 

Pie p /■; 

Top(Object _f,Pie 




class Bot extends Pie L { 

re rn (R e m v re m Fn , 

Object o) { 

return rerriFn.forBot(o)\ } 
P\e v subst(Subst v substFn. 

Object n. 

Object o) { 

return substFn.forBot(n.o): } 


Pie p 


D 


) { 


_r 


t 


t: 


\ 


_r; 


/■ 


Pie p rem( Rem v reniFn 

Object o) { 

return reniFn. for Top (t,r,o): } 
Pie p subst (Subst ^ v substFn. 

Object n, 

Object o) { 

return substFn. for Top (t,r,n,o); } 


■ i 


} 






How does it affect Bot? 
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We still have some work to do. 


That’s right. Nothing else changes in the 
variants. Instead of relying on fields of the 
datatype, we use what is consumed. 


11 


Consuming an extra value here also affects 
how the methods rem and subst are used. 


Like what? 


12 


In Rem v and Subst v , the interesting parts, 
for example. 


Where are they used? 


13 


That takes all the fun out of it. 


Yes. Here is Rem v . 


Modify Subst v accordingly. 


14 


What is this all about? 


Yes, what about it. Copying is easy. 


15 


Understanding is more difficult. The word 
this refers to the object itself. 


Which object? 


16 


How did we get here? 


The protocol is that rem in Bot and Top asks 
for the forBot and forTop methods of 
remFn , respectively. 
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that happen? 


It happens with 
remFn. for Bot(...) 


and 


remFn. forTop (...), 
respectively. 


18 


Correct. And now forBot and forTop can 
refer to the object remFn as this. 


Oh. so inside the methods of Rem v , this 

l 

• • 

stands for precisely that instance of Rem v 

that allowed us to use those methods in the 
first place. And that must mean that when 
we use r. rem (this.. . .) in forTop , it tells rern 
to use the same instance over again. 


19 


Not really, just self-referential. 


That's it. Trickv? 


20 


Because this is a Rem v , and it is exactly 
what we need to complete the job. 


Whv? 


21 


We did the same example in the precedin 
chapter, and the result remains the same. 


What is the value of 

new Top(new AnchovyQ. 

new Top(new lnteger(3), 
new Top(new Zero(), 
new 

.rm(new Rem v (), 


t) 




Bot()))) 


22 


And how does the underlined part relate to 
what we did there? 


It creates a Rem v object, which corresponds 
to the remFn in the old Pie p . 


2d 


What is the value of 

new Top(new lnteger(3), 
new Top(new lnteger(2), 
new Top(new lnteger(3), 

new Bot()))) 

..sv/h.sf (new Subst v (), 


We did the same example in the preceding 

chapter, and the result remains the same. 


new lnteger(3))? 
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24 


It creates a Subst v object, which corresponds 
to the remFn in the old Pie 15 . 


And how does the underlined part relate to 
what we did there? 


25 


V 


So what is the underlined part about? 


We changed the methods in Pie 
means that we must also change how it is 
used. 


, which 


26 


Ready for the next protocol? 


Let’s grab a quick snack. 


27 


Cappuccino crunch sounds great. The more 
coffee, the better. 


How about some ice cream? 


28 


Take a look at subst in Top and at forTop in 
Subst v . What happens to the values that 
they consume? 


Nothing really. They get handed back and 
forth, though forTop compares o to t. 


29 


Is the handing back and forth necessary? 


We don’t know any better way, yet. 


30 


Here is a way to define Subst v that avoids the 
handing back and forth of these extra values. 


l 


Wow. This visitor has two fields. 


l 


In functional programming, a visitor with fields is called 
closure (or a higher-order function), which would he the 
result of applying a curried version of subst. 
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31 


We use 

new Subst v (new lnteger(5), 

new lnteger(3)). 


How do we create a Subst v ? 


What does that do? 


It creates a Subst v whose methods know how 
to substitute new lnteger(5) for all 
occurrences of new lnteger(3) in Pie p . 


3d 


How do the methods know that without 
consuming more values? 


The values have 


now become fields of the 
which the methods belong. 
They no longer need to be consumed. 


Subst v object to 


34 


Okav. so how would we substitute all 

V ' 

new lnteger(3) with new lnteger(5) in 

new Top(new lnteger(3). 
new Topfnew lnteger(2), 
new Top(new lnteger(3), 
new Bot())))? 


We write 

new Top(new lnteger(3), 
new Top(new lnteger(2), 
new Top(new lnteger(3). 
new Bot()))) 

.subst( new Subst v ( 

new lnteger(5), 
new lnteger(3))). 


35 


And if we want to substitute all 

new lnteger(2) with new lnteger(7) in the 

same pie? 


We write 

new Top(new lnteger(3), 
new Top(new lnteger(2), 
new Top(new lnteger(3). 
new BotQ))) 
.subst(nev/ Subst v ( 

new Integer(7), 
new lnteger(2))). 


36 


Does all that mean we have to change the 
protocol, too? 


Of course, because the methods subst in the 
Bot and Top variants consume only one value 
now. 
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In the Top variant, we still need to hand over 
both t and r. 


That’s right. Here are the datatype and its 
Bot variant. Define the Top variant. 


class Top extends P\e v { 
Object t\ 

Pie p 

Top(Object J,P\e D _r) { 
t = J: 


abstract class Pie 15 { 
abstract P\e v rem( Rem v remFn) \ 
abstract Pie 15 subst(Subst v substFn ); 


r; 


} 


_r; } 


r 


P\e v rem{ Rem v remFn) { 
return remFn.forTop{t,r): } 
Pie p sufr.sf (Subst v substFn) { 
return substFn.forTop(ter): } 


} 


38 


Is there anything else missing? 


We haven’t defined Rem v for this new 
protocol. But it is simple and hardly worth 

our attention. 


39 


What is the difference between rem and 
subst in Bot? 


Not much. The name of the respective values 
they consume and the corresponding types. 


40 


What is the difference between rem and 
subst in Top? 


The name of the respective values 
they consume and the corresponding types. 


Not much. 


41 


Can we eliminate the differences? 


It is easv to make them use the same names. 
It doesn’t matter whether rem is defined as 
it is or as 

Pie 15 rem (Rem v substFn) { 
return substFn.forTop(t :,r); }. 


42 


True, because substFn is just a name for a 
value we don’t know yet. But how can we 
make the types the same? 


Both Rem v and Subst v are visitors that 
contain the same method names and those 
methods consume and produce the same 
types of values. We can think of them as 
extensions of a common abstract class. 
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abstract class PieVisitor { 


abstract Pie p forBot()\ 


abstract Pie p for Top (Object t, Pie 


} 


44 


Great job, except that we will use interface 
for specifying visitors like these. 


Okay, that doesn’t seem to be a great 
difference. Can a class extend an interface 
the way it extends an abstract class? 


interface PieVisitor 1 { 

Pie 15 forBot()] 

Pie 1 ^ forTop( Object t, Pie p r); 




T 


This superscript is a reminder that the name refers to an 
interface. Lower superscripts when you enter this kind of 
definition in a file: PieVisitorl. 


45 


No. A class implements an interface; it 

does not extend it. 


Fine. 


46 


Yes, we can. Assuming we can use 

interfaces like abstract classes, we can 
write 

Pie p rem( PieVisitor 2 pvFn) { 
return pvFn.forTop(t ,r); } 


Now that we have an interface that describes 
the type of the values consumed by rem and 
subst , can we make their definitions even 
more similar? 


and 


Pie p stx&s^PieVisitor 1 pvFn ) { 
return pvFn.forTop{t,r)\ } 


in Top. 


47 


Correct. What is the difference between rem 
and subst , now? 


There isn’t any. We can use the same name 
for both, as long as we remember to use it 
whenever we would have used rem or subst. 


48 


What is a good name for this method? 


The method accepts a visitor and asks for its 
services, so we call it accept. 
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Easy: ask , because we ask for services. 


And what is a better name for pvFnl 


Now we can simplify the protocol. Here is 
the new Rem v . 


Here we go. 

abstract class Pie 75 { 
abstract Pie p accept (PieVisitor T ask)\ 


} 


Supply the protocol. 


51 


Did you notice the two underlined 
occurrences of public? 


Yes, what about them? 


52 


When we define a class that implements 
an interface, we need to add the word 
public to the left of the method definitions. 


Why? 


53 


It’s a way to say that these are the methods 
that satisfy the obligations imposed by the 

interface. 


Looks weird, but let’s move on. 


54 


Correct. They are just icing. 


Okay, we still won’t forget them. 
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Now define the new Subst . 


56 


Draw a picture of the interface PieVisitor 2 
and all the classes: Pie p , Bot, Top, Rem v , 
and Subst v . 


Here is our picture. 


accept 


PieVisitor J 


Subst v 


W hy is there is a line, not an arrow, from 

Subst v to PieVisitor 2 ? 


The Subst v visitor implements PieVisitor 2 , 

it doesn’t extend it. Arrows mean “extends, 
lines mean “implements.” 


58 


It tells us the name of the method that 
connects the datatype to the visitors. 


And the dashed line? 


Chapter 6 


94 






What is the value of 


new Top(new Anchovy(), 
new Top(new Tuna(), 
new Top(new Anchovy(), 
new Top(new Tuna(), 
new Top(new Anchovy() 

new Bot()))))) 

.accept ,(new LtdSubst v (2, 


new Top(new Salmon(), 
new Top(new Tuna(), 
new Top(new 5almon(), 
new Top(new TunaQ, 
new Top(new Anchovy() 


new Bot()))))). 


new Salmon(), 
new Anchovy()))? 


60 


Explain what LtdSubst v produces. 


The methods of LtdSubst v replace one fish on 
a pie by another as many times as specified 
by the first value consumed by LtdSubst v . 


1 


1 


A better name is LimitedSubstitutionV, and that is how 
we pronounce it. 


61 


Good. Define LtdSubst v . 


That’s easy. We have such a flexible protocol 
that we only need to define the essence now. 
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Oops, there are too few anchovies on this 
pizza pie: 


new Top(new AnchovyQ, 
new Top(new TunaQ, 
new Top(new AnchovyQ, 
new Top(new Tuna(), 
new Top(new AnchovyQ, 
new Bot()))))) 

.accept (new LtdSubst v (2, 


new Top(new SalmonQ, 
new Top(new Tuna(), 
new Top(new Salmon(), 
new Top(new Tuna(), 
new Top(new SalmonQ, 
new 


Bot()))))). 


new Salmon(), 
new Anchovy()))? 
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How come? 


Because c, the counting field, never changes. 
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Why doesn't c ever change? 


Because this, the LtdSubst v that performs 
the substitutions, never changes. 


65 


We can’t change this, but we can replace 
this with a new LtdSubst v that reflects the 
change. 


Can we fix this? 


66 


If c stands for the current count, how do we 
create a LtdSubst v that shows that we have 
just substituted one fish by another. 


Simple, we use 


LtdSubst v (c - 1 
in place of this. 


o) 


new 


n. 


The Sixth Bit of Advice 


When the additional consumed values 
change for a self-referential use of a 
visitor , don't forget to create a new 
visitor. 
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Define the new and improved version of 

LtdSubst v . 


68 


How does 

this 

differ from 


They are two different LtdSubst v s. One 
replaces c occurrences of o by ji in a pizza 
pie, and the other one replaces only c — 1 of 
them. 


LtdSubst v (c — l,n,o)? 


new 
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How do you feel about protocols now? 


They are exciting. Let's do more. 
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new Flat(new Apple(), 
new Flat(new Peach() 
new Bud())) 

a flat Tree 15 ? 


Yes, it is also a flat Tree 15 . 


Is 


new Flat(new PearQ, 
new 

a flat Tree 75 ? 


BudQ) 


And how about 
new Split( 

new Bud(), 
new Flat(new Fig(), 
new Split( 

Bud(), 

new Bud())))? 


No, it is split, so it can’t be flat. 


new 


Here is one more example: 

new Split( 
new Split( 
new Bud(), 

new Flat(new Lemon(), 
new BudQ)), 
new Flat(new Fig(), 
new Split( 
new Bud(), 
new BudQ))). 


No, it isn’t flat either. 


Is it flat? 


Is the difference between flat trees and split 
trees obvious now? 


Unless there is anything else to Tree 75 , it's 
totally clear. 


Good. Then let’s move on. 


Okay, let’s. 


Oh My! 


99 








Here are some fruits. 


It does not differ too much from what we 
have seen before. 


class Peach extends Fruit p { 
public boolean equals (Object o) { 
return (o instanceof Peach); } 


class Bud extends Tree 15 {} 


} 


class Apple extends Fruit 15 { 
public boolean equals (Object o) { 
return (o instanceof Apple); } 


} 


class Pear extends Fruit 15 { 
public boolean equals (Object o) { 
return (o instanceof Pear); } 


} 


class Lemon extends Fruit 15 { 
public boolean equals (Object o) { 
return (o instanceof Lemon); } 


} 


Let’s say all Tree^s are either flat, split, or 
bud. Formulate a rigorous description for 
Tree^s. 


Did you notice that we have redefined the 
method equals in the variants of Fruit 15 ? 


That probably means that we will need to 
compare fruits and other things. 


No, which means we won’t compare them 
but we could. 


Do Tree^’s variants contain equals ? 
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10 


The name of the new datatype occurs twice 
in its Split variant. 


How does the datatype Tree 75 differ from all 
the other datatypes we have seen before? 


11 


Let’s add a visitor interface whose methods 
produce booleans. 


That just means extending what we have 
with one method each. 


class Bud extends Tree 15 { 
boolean acce pf(bTreeVisitor J ask) { 
return ask.forBud (); } 


interface bTreeVisitor J { 
boolean forBud (); 
boolean forFlat (Fruit p /.Tree 15 t): 
boolean for Split { Tree 15 /.Tree 15 r); 


} 


} 


Here is the new datatype definition. 

— - . — - 

abstract class Tree 7 '* { 
abstract 

boolean accept (bTreeVisitor J ask): 


} 


Revise the variants. 


But isn’t bTreeVisitor 2 a pretty unusual 


? 


name.' 


12 


Yes, it is. Hang in there, we need unusual 
names for unusual interfaces. Here b reminds 
us that the visitor’s methods produce 

booleans. 


Okay. 


Oh My! 
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How many methods does the definition of 
blsFlat v contain, assuming it implements 

bTreeVisitor 2 ? 


Three, because it works with Tree 2 s, and the 

• • 

datatype definition for Tree 2 s has three 
variants. 


14 


What type of values do the methods of 
blsFlat v produce? 


booleans. 


15 


What visitor does blsFlat v remind us of? 


OnlyOnions v . 


16 


That’s easy now. 

class b!sFlat v implements bTreeVisitor 2 { 
public 

boolean for Bud () { 

return true; } 
public 

boolean for Flat ( Fruit 2 * /.Tree 21 t) { 
return t accept (this); } 

public 

boolean forSplit(Tree v /.Tree 2 r) { 
return false; } 


Here is a skeleton for blsFlat v . 

class blsFlat v implements bTreeVisitor 2 { 
public 

boolean forBud () { 

return 

public 

boolean for Flat ( Fruit 2 /.Tree 2 t) { 

return 

public 

boolean forSplitfTree 
return 


; 


; 


V 


l, Tree® r) { 


: 






Fill in the blanks. 


17 


V 


Here is the easy part. 


Define the blsSplit 
check whether a Tree 2 is constructed with 
Split and Bud only. 


visitor, whose methods 


v 


implements bTreeVisitor 2 { 


class blsSplit 
public 
boolean forBud () { 
return true; } 
public 

boolean /orF/a/(Fruit 2 /.Tree 2 f ) { 
return false; } 


public 

4 

boolean forSplit( Tree 15 l,Tree p r) { 
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What is difficult about the last line? 


Isn’t that easy? 


And then? 


If 


are true 


[.accept (this) 

is true, do we need to know whether 
r. accept (this) 
is true? 


tree. 


22 


If 


No, then the answer is false. 


1. accept (this) 

is false, do we need to know whether 
r. accept (this) 
is true? 


23 


Finish the definition of blsSplit^ using 


Now we can do it. 


if ... 


v 


implements bTreeVisitor 7 { 


class blsSplit 
public 
boolean forBud() { 
return true: } 
public 

boolean for Flat ( Fruit 11 f,Tree D t) { 
return false; } 
public 

boolean for Split ( Tree 1 ’ /,Tree p r) { 
if 1 (L accept (this)) 
return r. accept (this); 
else 


return ... 
else 

return ... . 


return false; } 


} 


l 


We could have written the if . .. as 

return 1.accept(this) r.accept(this). 
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Give an example of a Tree p for which the 
methods of blsSplit v respond with true. 


There is a trivial one: 


new Bud(). 


25 


How about one with five uses of Split? 


Here is one: 


new Split( 
new Split( 
new Bud(), 
new Split( 
new Bud(), 
new Bud())), 
new Split( 
new Bud(), 
new Split( 
new Bud(), 
new 


Bud()))). 


26 


No. 


Does this Tree p have any fruit? 


27 


Here it is. 


Define the bHasFruit v visitor. 


class bHasFruit v 

implements bTreeVisitor J { 
public 

boolean for Bud () { 

return false; } 
public 

boolean forFlat (Fruit p /,Tree p t) { 
return true; } 
public 

boolean for Split {Tree 
if 1 (/.accept (this)) 
return true; 

i 

else 

return r. accept (this); } 


v 


l, Tree p r) { 


} 


i 


We could have written the if . .. as 

return 1.accept(this) II r.accept(this) 
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what is the height of 

new Split( 
new Split( 
new Bud(), 
new Flat(new Lemon() 
new Bud())), 
new Flat(new Fig(), 
new Split( 
new Bud(), 
new Bud())))? 


29 


2 . 


What is the height of 


new Split( 
new Bud(), 

new Flat(new Lemon() 
new 


Bud()))? 


30 


1 . 


What is the height of 

new Flat(new Lemon() 
new Bud())? 


31 


0 . 


What is the height of 
new BudQ? 


32 


So what is the height of a Tree v ? 


Just as in nature, the height of a tree is the 
distance from the beginning to the highest 
bud in the tree. 


33 


Do the methods of iHeight v work on a Tree^? 


Yes, and they produce an int. 


34 


Is that what the i in front of Height is all 
about? 


It looks like i stands for int, doesn’t it? 


Oh My! 
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What is the value of 

new Split( 
new Split( 
new Bud(), 
new Bud()), 
new Flat(new Fig(), 
new Flat(new LemonQ, 
new Flat(new Apple(), 

new Bud())))) 
.accept (new iHeight v ())? 


36 


Why is the height 4? 


Because the value of 

new Split( 
new Bud(), 
new BudQ) 

.accept (new iHeight v ()) 

is 1; the value of 

new Flat(new Fig(), 
new Flat(new Lemon(), 
new Flat(new Apple(), 
new Bud()))) 

.accept (new iHeight v ()) 

is 3; and the larger of the two numbers is 3. 


37 


And how do we get from 3 to 4? 


We need to add one to the larger of the 
numbers so that we don't forget that the 
original Tree 15 was constructed with Split and 
those two Tree^s. 


38 


1 


Oh, that’s nice. What kind of methods does 
iHeight v define? 


LJ picks the larger of two numbers, x and y. 


l 


When you enter this in a file, use 
Math.max(x,y). 

Math is a class that contains max as a (static) method. 


39 


Now that’s a problem. 


ihleight v, s methods measure the heights of 
the Tree p s to which they correspond. 
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We denned only interfaces that produce 


booleans in this chapter. 


So what? 


The methods of iHeight v produce ints, which 


are not booleans. 


It’s almost the same as bTreeVisitor 1 . 


Okay, so let s define a visitor interface that 
produces ints. 


interface iTreeVisitor 2 - { 

int forBud()\ 

int for Flat (Fruit/.Tree 15 t); 
int for Split (Tree v l, Tree 15 r); 


} 


43 


Yes, and once we have that we can add 
another accept method to Tree 25 . 

i- 

i 

abstract class Tree 15 { 
abstract 

boolean accept (bTreeVisitor 2 - ask)\ 
abstract 

int accept (iTreeVisitor 1 ask)\ 


Does that mean we can have two methods 
with the same name in one class? 1 


} 


1 


In Java, defining multiple methods with the same name 
and different input types is called “overloading.” 


44 


We can have two methods with the same 
name in the same class as long as the types 
of the things they consume are distinct. 


bTreeVisitor 1 is indeed different from 
iTreeVisitor 2 ^ so we can have two versions of 

l 

accept in Tree 15 . 


45 


Add the new accept methods to Tree^’s 
variants. Start with the easy one. 


It is easy. 

class Bud extends Tree 15 { 
boolean accept (bTreeVisitor 2 ask) { 
return ask.forBud (); } 
int accept (iTreeVisitor 2 - ask) { 
return ask.forBudQ ; } 


} 
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The others are easy, too. We duplicate 


accept. 


Here is iHeight. 

r- -- - —~— 

class iHeight v implements iTreeVisitor 1 { 
public int for BudQ { 
return 

public int for Flat (Fruit 75 /.Tree 75 t) { 

return 

public int for Split (Tree 
return 


; 


;} 


T> 


l, Tree 1 ’ r) { 


;} 


} 


Complete these methods. 
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What is the value of 

new Split( 

new BudQ, 
new Bud()) 

.accept (new iHeight v ())? 


49 


And why is it 1? 
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We must also change the type of what the 
new accept method consumes and produces. 


class Split extends Tree 75 { 
Tree 15 /; 

Tree 75 r; 

Split(Tree p J.Tree 75 _r) { 


l 




_r; } 


r 


boolean accept (bTreeVisitor 7 ask) { 
return ask. for Split (/, r); } 
int accept (iTreeVisitor 2 ask) { 
return ask. for Split (/,r); } 


} 


That’s easy now. 


class iHeight v implements iTreeVisitor 1 { 
public int forBudQ { 
return 0; } 

public int for Flat ( Fruit 15 /, Tree 75 t) { 
return t. accept (this) + 1; } 
public int for Split ( Tree 75 /.Tree 75 r) { 

return 

(l. accept ( this) U r. accept (this)) 

+ i;} 




1, of course. 


Because 

new BudQ. accept (new i Height v ()) 

is 0 ? the larger of 0 and 0 is 0, and one more 
is 1. 
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If the visitor tSubst v substitutes apples for 
figs, here is what we get: 


What is the value of 


new Split( 
new Split( 
new Flat(new Fig(), 
new Bud()), 
new Flat(new Fig(), 

new BudQ)), 

new Flat(new Fig(), 
new Flat(new Lemon() 
new Flat(new AppleQ 
new Bud())))) 


new Split( 
new Split( 

new Flat(new AppleQ, 
new BudQ), 
new Flat(new AppleQ. 
new BudQ)), 
new Flat(new AppleQ. 
new Flat(new LemonQ, 
new Flat(new AppleQ, 

new 


. accept( 

new tSubst v ( 
new AppleQ 
new FigQ))? 


BudQ)))). 
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It’s like SubstFish v and Substlnt v from the 
end of chapter 5, but we can't do it just yet. 


Correct. Define the tSubst v visitor. 


52 


What’s the problem? 


Its methods produce Tree^s, neither ints nor 
booieans. which means that we need to add 

I 

yet another interface. 


53 


Easy. Here is the abstract one. 

abstract class Tree 15 { 
abstract 

boolean accept (bTreeVisitor J ask): 
abstract 

int accept (iTreeVisitor 1 ask)] 
abstract 

Tree 75 accept (tTreeVisitor J ask)] 


Good job. How about the datatype Tree 15 . 
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No problem. 


Define the variants of Tree 27 . 


class Bud extends Tree 25 { 


boolean accept (bTreeVisitor 1 ask) { 


return ask.forBudQ; } 


int accept (\Treey\s\tor 1 ask) { 


return ask.forBudQ; } 


Tree 17 accep/(tTreeVisitor 


return ask.forBudQ; } 


} 


class Flat extends Tree 27 { 


Fruit 27 /; 


Tree 27 t: 


Flat(Fruit X7 ../.Tree 25 _t) { 


/ 




} 


t 


boolean accept (bTreeVisitor 2 ask) { 


return ask. for Flat (} f); } 


int aceep/(iTreeVisitor J ask) { 


return ask. for Flat (f ,t); } 


Tree 2 * accep/(tTreeVisitor 


i 


as 


return ask. for Flat {f .t); } 


} 


class Split extends Tree 27 { 


Tree 27 l. 


Tree 25 r; 


Split(Tree 27 -/.Tree 25 _r) { 


-l; 


l 


} 


r 


-r; 


boolean accept (bTreeVisitor 2 ask) { 


return ask.forSplit(l,r); } 


int accept (iTreeVisitor 2 ask) { 


return ask.forSplit(l,r); } 


Tree 25 accep^tTreeVisitor 1 ask) { 


return ask.forSplit(l,r); } 
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That’s easy, too. It has two fields, one for 
the new Fruit 75 and one for the old one, and 

l 

the rest is straightforward. 


Then define tSubst . 
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Here is a Tree 25 that has three Figs: 

new Split( 
new Split( 
new Flat(new Fig(), 
new 

new Flat(new Fig(), 
new BudQ)), 
new Flat(new Fig(), 
new Ftat(new Lemon(), 
new Flat(new Apple(), 
new Bud())))). 

Now define iOccurs v , whose methods count 
how often some Fruit 25 occurs in a tree. 


Even the visitors are no longer interesting. 


class iOccurs v implements iTreeVisitor 7 { 
Fruit 25 a; 

iOccurs v (Fruit 25 _a) { 


BudQ) 


_a; } 


public int forBud() { 
return 0; } 

public int forFlat( Fruit 25 /.Tree 25 /) { 
if (/.equals(a)) 
return t. accept( this) T 1; 
else 

return t. accept (this); } 
public int for Split (TreeP /.Tree 25 r) { 

return 

l.accept (this) + r.accept/ this); } 


} 


Oh My! 


Ill 




Do you like your fruit with yogurt? 


We prefer coconut sorbet. 


Copying definitions is always bad. If we 
make a mistake and copy a definition, we 
copy mistakes. If we modify one, it's likely 
that we might forget to modify the other. 


Is it disturbing that we have three nearly 
identical versions of accept in Tree^s and its 
variants? 
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If boolean and int were classes, we could 
use Object for boolean, int, and Tree 15 . 
Unfortunately, they are not. 


Can we avoid it? 


60 


Yes, Boolean is the class that corresponds to 
boolean, and Integer corresponds to int. 


Remember Integer and Boolean? They make 
it possible. 
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Here is the interface for a protocol that 
produces Object in place of boolean, int 
and Tree 15 . 


Here they are. 


class Flat extends Tree 15 { 


Fruit 15 /; 


interface TreeVisitor 2 { 

Object forBud(); 

Object forFlat( Fruit 15 /,Tree 15 /); 
Object forSp lit (Tree 15 /.Tree 15 r); 


Tree 15 t\ 


Flat(Fruit 15 _/,Tree 15 _/) { 


/ 


/; 


m } 


t 


} 


Object accept (TreeVisitor J ask) { 

return ask. for Flat {f ,t)\ } 


Here is the datatype and the Bud variant. 


abstract class Tree 15 { 
abstract 

Object accept (Tree’Vi si tor 2 ask)\ 


class Split extends Tree 15 { 


Tree 15 /: 


} 


Tree 15 


r 


Split(Tree r ./.Tree 15 _r) { 


/ 


class Bud extends Tree 15 { 
Object accept (TreeVisitor 1 ask) { 
return ask. for Bud (); } 


Object accept (TreeVisitor x ask) { 
return ask.for Split (/,r); } 


} 


} 


Define the remaining variants of Tree 15 . 
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Good. Now define IsFlat, an Object 


producing version of blsFlat v . 


class lsFlat v implements TreeVisitor 2 { 


public Object for Bud () { 


return new Boolean(true); } 
public Object forFlat (Fruit 2 * /.Tree 2 * t) { 
return t. accept (this); } 
public Object for Split (Tree v l, Tree® r) { 
return new Boolean (false); } 


} 


63 


And how about lsSplit v ? 


Now that’s different. Here we need a way to 
determine the underlying boolean of the 
Boolean that is produced by 1. accept (this) in 
the original definition. 




Okay, here it is. 

class isSplit v implements TreeVisitor 2 { 
public Object forBudQ { 
return new Boolean(true); } 
public Object forFlat (Fruit 2 * /.Tree 15 t) { 
return new Boolean (false); } 
public Object forSplit(Tree v /.Tree 15 r) { 
if (((Boolean) (l. accept (this))) 

.boolean Value ()) 
return r. accept (this); 
else 

return new Boolean(false); } 


Oh, because l accept (this) produces an 
Object, we must first convert 1 it to a Boolean. 
Then we can determine the underlying 
boolean with the booleanValue method. We 
have seen this in chapter 5 when we 
converted an Object to a OneMoreThan. 


l 


If Java had parametric polymorphism for methods, no 
downward cast would be necessary for our visitors (Martin 
Odersky and Philip Wadler, Pizza into Java: Translating 
Theory into Practice, Conference Record on Principles of 
Programming Languages , 146-159. Paris, 1997). 




65 


Will the conversion always work? 


Yes, because the Object produced by 
1 accept (this) is always a Boolean. 


The Seventh Bit of Advice 

When designing visitor protocols for 
many different types, create a unifying 

protocol using Object. 


Oh My! 
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Did you think that was bad? Then study 


this definition during your next break. 


class Occurs v implements TreeVisitor J 


Fruit 1 " 


a; 


Occurs v (Fruit r> _a) { 


_a; } 


a 


public Object for Bud () { 


return new Integer(O); } 


public Object forFlat( Fruit^ /,Tree 1 " t) { 


if (/.equals(a)) 


return 


new Integer(((Integer) 


(t. accept (this))) 


.int Value () 


+ i); 


else 


return t. accept (this); } 


public Object for Split (Tree 


return 


lnteger(((lnteger) 


new 


(l.accept (this))) 


. int Value () 
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What is the value of 


7+ (4-3) x 5))? 


What is the value of 


because we have just rewritten the 


(+7(x (-4 3) 5))? 


previous expression with prefix operators. 


What is the value of 

new Plus( 

new Const (new lnteger(7)), 
new Prod( 
new Diff( 

new Const(new lnteger(4)), 
new Const(new lnteger(3))), 
new Const(new lnteger(5))))? 


Integer(12), 

because we have just rewritten the 
previous expression using Integer and 

constructors. 


new 


Where do the constructors come from? 


A datatype and its variants that represent 
arithmetic expressions. 


Did you like that? 


So far, so good. 


What is the value of 


{7,5 . 


({7,5} U (({4} \ {3}) PI {5}))? 


What is the value of 


{7.5}, 


we just went from infix to prefix notation. 


(U {7,5} (n (\ {4} {3}) {5}))? 


What is the value of 


{7,5}, 


we just renamed the operators. 


(+ {7,5} (x (- {4} {3}) {5}))? 


Like Father , Like Son 


117 




new EmptyQ 
.add( new lnteger(7)) 

.add( new lnteger(5)), 

because we have just rewritten the 
previous expression using the constructors. 


new Plus( 

new Const(new Empty() 

.add( new lnteger(7)) 
.add( new lnteger(5))). 


new Prod( 
new Diff( 

new Const(new Empty() 

.add(new lnteger(4))), 
new Const (new EmptyQ 

,add( new lnteger(3)))), 
new Const(new EmptyQ 

.add(ne w lnteger(5)))))? 


10 


A datatype and its variants that represent 
set expressions. 


Where do the constructors come from? 


il 


Sure, why not. 


Do vou still like it? 


12 


Does the arithmetic expression look like the 
set expression? 


Yes, they look the same except for the 

constants: 

new Plus( 

new Const(«), 
new Prod( 
new Diff( 
new Const(*), 
new Const(*)), 
new Const(*))). 


13 


Let's say that an expression is either 

a Plus(expri,expr 2 ), 
a D\ff(expri,expr 2 )> 

a Prod(expri ,expr 2 ), or 
a constant, 

i 

where expr\ and expr 2 stand for arbitrary 
expressions. What should be the visitor 
interface? 


That’s a tricky question. 

interface ExprVisitor 2 ^ { 

Object for Plus (Expr v l, Expr v r); 
Object forDiff (Expr v l,Expr v r); 
Object forProd(Expr v l,Expr v r); 
Object for Const (Object c); 


} 
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14 


Good answer. Here is the datatype now. 


Define the variants of the datatype and equip 
them with an accept method that produces 
Objects. 


class Prod extends Expr 15 { 
Expr p /; 

Expr D r; 

Prod(Expr r> J,Expr p _r) { 


l 




_r; } 


r 


Object accept (ExprVisitor J ask) { 
return ask. for Prod {Ur) \ } 


} 


Like Father, Like Son 
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15 


Can we now define a visitor whose methods 
determine the value of an arithmetic 
expression? 


H) 


How do we add 

new lnteger(3) 


and 


new lnteger(2)? 


17 


But what is the result of 
new Integerf3). 


+ 


new lnteger(2) 


IK 


How do we turn that into an Integer? 


1<) 


of lntEval v . 


Okav, so here is a skeleton 


/r v«- 




class lntEval v implements ExprVisitor 1 { 
public Object for Plus (Expr v /.Expr 27 * r) { 
return plus ( l. accept (this), 

r. accept (this)); } 

public Object forDiff (Expr p /,Expr p r) { 

.accept (this). 

pt(this)); } 

public Object for Prod ( Expr p /,Expr D r) { 
return prod (/. accept (this). 

r. accept (this)); } 

public Object for Const (Object c) { 
return c; } 

Object plus ( 
return_ 


return di 


r. acre 


■2 r) { 




-1 


•d } 


2 r) { 


Object diff{ 


L 




■■ 


return __ 
Object prod( 

return_ 


4 ' 


2 r) { 


l. 


1 


; } 


5 
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Yes. we can. It must have four methods, one 

l l 

per variant, and it is like' Occurs v from the 
previous chapter. 


We have done this before. We use the 
method hit Value to determine the ints that 
correspond to the Integers, and then add 


An int. what, else? 


We use new lnteger(...). 


That 's an interesting skeleton. It contains 
five different kinds of blanks and two of them 
occur three times each. But we can see the 
bones onlv. Where is the beef? 




How does forPlus work? 


s, determines their 


It consumes two Expr 
respective values, and pin 


ses them. 


21 


As Objects, because we are using our most 
general kind of (and most recent) visitor. 


How are the values represented? 


22 


Objects, 

because that's what 
1. accent (this) 


So what kind of values must plus consume? 


and 


r. accept (this) 
produce. 


23 


Object. 


What must we put in the first and second 
blanks? 


24 


Can we add Objects? 


No, we must convert them to Integers first 
and extract their underiving ints. 


25 


Can we convert all Objects to Integers? 


No, but all Objects produced by IntEval v ' are 
made with new lnteger(...), so that this 
conversion always succeeds. 


26 


Is that true? What is the value of 

new Plus( 

new Const(new EmptyQ), 
new Const(new lnteger(5))) 

.accept^ new IntEvaI v ())? 


Wow. At some level, this is nonsense. 


27 


Correct, so sometimes the conversion may 
fail, because we use an instance of lntEval v 

I 

on nonsensical arithmetic expressions. 


What should we do? 


Like Father , Like Son 


121 



And their set expressions, too. 


We agree to avoid such arithmetic 
expressions. 1 


1 


In other words, we have unsafe evaluators for our 
expressions. One way to make them safe is to add a method 
that checks whether constants are instances of the proper 
class and that raises an exception [lxhapter 7], An 
alternative is to define a visitor that type checks the 
arithmetic expressions we wish to evaluate. 


Now it’s easy. Here we go. 


If we want to add / and r, we write 

new lnteger( 

((I ntege r) /). int Value () 


class !ntEval v implements ExprVisitor 2 { 
public Object forPlus( Expr p l,Expr v r) { 
return plus (l. accept (t his), 

r. accept (this)); } 

public Object forDiff (Expr p l,Expr v r) { 
return diff (/. accept (this), 

r. accept (this)); } 

public Object forProdi Expr 2 * /,Expr p r) { 
return prod(l. accept (this), 

cep/ (this)); } 

public Object forConst (Object c) { 
return c; } 

Object plus (Object /.Object r) { 
return 
new lnteger( 

((Integer) l ). int Value () 


+ 


((I nteger) r ). int Value 0). 
Complete the definition now. 


n n 

U/l> 


r. 


+ 


((Integer) r) .int Value())\ } 
Object diff (Object /.Object r ) { 
return 
new lnteger( 

((i nteger) l) .intValue() 


((integ er)r).intValue())\ } 
Object prod (Object /.Object r) { 
return 
new lnteger( 

((Integer) /). int Value () 


* 


((Integer) r).int Value()): } 


} 
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31 


We certainly need methods for plus ing, 
diff ing, and prodmg sets. 


What do we need to implement one for sets? 


32 


That’s correct, and here is everything. 


Whoa. 


abstract class Set v { 

Set v add(lnteger i) { 
if (mem(i)) 

return this; 
else 

return new Add(z,this); } 

abstract boolean mem(lnteger z); 
abstract Set p plus(Set v s ); 
abstract Set v diff (Set® 5); 
abstract Set 15 prod(Set v 5); 


} 


33 


Explain the method in the nested box in 
your own words. 


We use our words: 

“As its name says, add adds an element to 
a set. If the element is a member of the 

set, the set remains the same; otherwise, a 
new set is constructed with Add.” 


34 


Why is this so tricky? 


Constructors always construct , and add does 
not always construct. 


35 


Do we need to understand that? 


Not now, but feel free to absorb it when vou 
have the time. 
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36 


Define the variants Empty and Add for Set v . 


Here we go. 


class Empty extends Set 75 { 


boolean mem (Integer i) { 


return false; } 


Set 75 plus( Set 75 s) { 


return s ; } 


Set 15 diff(Set D s) { 


return new Empty(); } 


Set 15 prod (Set 75 5) { 


return new Empty(); } 


} 


class Add extends Set 75 { 


Integer 2; 


Set 75 


5; 


Add(lnteger J,Set v _s) { 


_ 1 : 


} 


boolean mem (Integer n) { 


if (i.equals(n)) 


return true; 


else 


return s.mem(n); } 


Set 75 plus( Set 75 t) { 


return s.plus(t.add (i)); } 


Set 75 diff( Set 75 t) { 


if ( t.mern(i )) 


return s.diff(t); 


else 


return s.diff(t).add(i); } 


Set 75 prod( Set 75 t) { 


if (t.mem(i)) 


return s.prod(t).add(i); 


else 


return s.prod(t); } 
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37 


Not now, but feel free to think about them 
when you have the time. We haven’t even 
used visitors to define operations for union, 
set-difference, and intersection, but we trust 

J • 

you can. 


Do we need to understand these definitions? 


38 


Not much, just plus, diff, and prod. 


What do we have to change in lntEval v to 
obtain SetEval v , an evaluator for set 
expressions? 


39 


Oh, that’s a piece of pie. We just copy the 
definition of lntEval v and replace its plus, 
diff, and prod methods. 


How should we do that? 


40 


That’s the worst way of doing that. 


What? 


41 


Why should we throw away more than half 
of what we have? 


That’s true. If we copied the definition and 
changed it, we would have identical copies of 
for Plus, for D iff , for Prod, and for Const. We 
should reuse this definition. 


l 


x 


Sometimes we do not have license to see the definitions, so 
copying might not even be an option. 


42 


Yes, and we are about to show you better 
ways. How do we have to change plus, diff 
and prod ? 


That part is easy: 

Object p/us(Object /,Object r) { 
return ((Set T? )/).p/us((Set r) )r); } 


and 


Object diff( Object /,Object r) { 
return ((Set v )l).diff ((Set v )r)\ } 


and 


Object prod( Object /,Object r) { 
return ((Set r> )/).prod((Set I> )r); }. 
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Very good, and if we define Set Eva I v 
extension of lntEval v , that's all we have to 
put inside of SetEval v . 


Now that s much easier than copying and 
modifying. 


class SetEval v extends lntEval v { 
Object plus(0 bject /,Object r) { 
return ((Set z? )/).p/ws((Set r> )r); } 
Object diff( Object /,Object r) { 
return ((Set v )l).diff((Set D )r)] } 
Object prod (Object /,Object r) { 
return ((Set v )l).prod((Set v )r)] } 


} 


44 


Is it like equals ? 


Yes, when we include equals in our class 
definitions, we override the one in Object. 
Here, we override the methods plus , diff. and 
prod as we extend lntEval v . 


45 


How many methods from IntEval^ are 
overridden in SetEval v ? 


Three. 


46 


How manv methods from 1 ntEval v are not 

V 

overridden in SetEval v ? 


Four: forPlus , forDiff , for Prod . and 
for Const. 


47 


It doesn’t say so. 


Does SetEval v implement ExprVisitor J ? 


48 


It says so. 


Does SetEval v extend lntEval v ? 


49 


Does lntEval v implement ExprVisitor 2 ? 


It says so. 


50 


Does SetEval v implement ExprVisitor 2 -? 


By implication. 
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Interesting question. How does this work 
now? 


That’s correct. What is the value of 

new Prod( 

new Const (new EmptyQ 

.add( new lnteger(7))), 
new Const (new EmptyQ 

.add( new lnteger(3)))) 
.accept (new SetEval v ())? 


52 


It is a Prod and therefore an Expr v . 


What type of value is 

new Prod( 

new Const(new Empty() 

.add(ne w lnteger(7))), 
new Const(new Empty() 

.add( new lnteger(3))))? 


53 


And what does accept consume? 


An instance of SetEval v , but its type is 
ExprVisitorQ 


54 


That’s what we need to determine the value 
of next, because it is 

ask. for Prod (l,r ), 

with ask , /, and r replaced by what they 
stand for. 


What is 

new Set Eva I v (). for Prod ( 
new Const(new Empty() 

.add( new !nteger(7))), 
new Const(new Empty() 

.add{ new lnteger(3))))? 


55 


Where is the definition of SetEval v ’s method 
fo rProd ? 


It is in lntEval v . 


56 


Suppose we had the values of 


If their values were A and B, we would have 
to determine the value of 

prod(A,B). 


new Const(new Empty() 

.add( new lnteger(7))) 


.accept (this) 


and 


new Const(new Empty() 

.add( new lnteger(3))) 


.accept (this). 

What would we have to evaluate next? 
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So far, we have always used a method on a 
particular object. 


That’s true. What is the object with which 
we use prod{AM )? 


59 


It is this object. 


Oh, does that mean we should evaluate 

new SetEval v ().prod(A,5)? 


60 


Absolutely. If the use of a method omits the 
object, we take the one that we were working 
with before. 


That clarifies things. 


61 


Good. And now what? 


Now we still need to determine the values of 


new Const(new Empty() 

.add( new lnteger(7))) 


.accept( this) 


and 


new Const(new EmptyQ 

.add(ne w lnteger(3))) 


.accept (this). 


62 


The values are obviously 

new EmptyQ 
.fl^jnew lnteger(7)) 


It, too, is in lntEval v . 


and 


new EmptyQ 
.add( new lnteger(3)). 

Where is the definition of for Const that 
determines these values? 


63 


Here is the next expression in our sequence: 

new SetEval v Q 
.prod( new EmptyQ 

.add(new lnteger(7)), 

new EmptyQ 

.add(new lnteger(3))). 

Where does prod come from? 


The object is an instance of SetEval v , which 
overrides the prod method in lntEval v with 
its own. 
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Next we need to determine the value of 

((Set p )(new Empty() 

.add( new lnteger(7)))) 

,prod( (Set)new Empty() 

.add(new lnteger(3))), 


What next? 


because it is 

((Set 15 ) (l. accept (this))) 
.prod((Set D )r.accept(this)) 

with L accept (this) and r. accept (this) 
replaced by their respective values. 


65 


Is 


Of course it is, but the type of l. accept (this) 
which is where it comes from, is Object. 


new Empty(). add (new lnteger(7)) 

an instance of Set v ? 


66 


And how about 


It’s the same. 


Empty().add(new lnteger(3))? 


new 


67 


And that is why the method must contain a 
conversion from Object to Set^s. 


This example makes the need for conversions 
obvious again. 


68 


Time for the last question. Where does this 
prod come from now? 


This one belongs to Set v or more precisely 
its Empty and Add variants. 


69 


And what does prod do? 


It determines the intersection of one Set 15 
with another Set v , but didn’t we agree that 
the previous question was the last question 
on that topic? 


70 


We overrode that, too. 


Thanks, guys. 


71 


Is it natural that SetEval v extends lntEval v ? 


No, not at all. 
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Because we defined IntEvar first. 1 


1 


Sometimes we may need to extend classes that are used in 
several different programs. Unless we wish to maintain 
multiple copies of the same class, we should extern! it. Java 
is object-oriented, so it may also be the case that we acquire 
the object code of a class and its interface, but not its source 
text. If we wish to enrich the functionality of this kind of 

fc.' 

class, we must also extend it. 


73 


But just because something works, it doesn't 
mean it's rational. 


Yes, let’s do better. We have defined all 

I 

these classes ourselves, so we are free to 
rearrange them any way we want. 


74 


What distinguishes lntEval v from SetEval v ? 


The methods plus, diff , and prod. 


75 


What are the pieces that they have in 
common? 


They share the methods for Plus, for Diff, 
forProd, and forConst. 


76 


Good. Here is how we express that. 


Isn’t this abstract class like Point 15 ? 


abstract class Eval p 

implements ExprVisitor T { 
public Object for Plus (Expr p /,Expr p r) { 
return plus(l.accept( this), 

r. accept (this)); } 

public Object for Diff (Expr v l, Expr p r) { 
return diff [l accept (this), 

r. accept (this)); } 

public Object forProd( Expr D /,Expr D r) { 
return /; rod (L accept (this), 

r. accept (this)); } 

public Object for Const ( Object c) { 
return c; } 
abstract 

Object plus( Object /,Object r); 
abstract 

Object diff (Object l, Object r); 

abstract 

Object prod( Object /.Object r); 
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Yes, we can think of it as a datatype for 
EvaP visitors that collects all the common 
elements as concrete methods. The pieces 
that differ from one variant to another are 
specified as abstract methods. 


What do we do now: 


78 


It is basically like the original but extends 

EvaP, not IntEvaP. 


We define IntEvaP extending EvaP. 


Define SetEvaP. 


79 


Is it natural for two evaluators to be on the 
same footing? 


Much more so than one extending the other. 


80 


Time for supper. 


If you are neither hungry nor tired, you may 
continue. 
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Remember Subst v from chapter 6? 


Yes, and LtdSubst, too. 


class LtdSubst v implements PieVisitor 2 { 
int c; 

i 

Object n; 

Object o; 

LtdSubst v (int _c, Object _n, Object _o) { 

c = _c; 


n = _n: 




O 


public Pie 2 ’ forBot() { 
return new Bot(); } 
public P\e v for Top (Object t,P\e v r) { 

if (c 

return new Top (t,r); 
else 

if ( o.equals(t )) 

return 


0 ) 


new Top (n, 

r. accept ( 

new LtdSubst y (c 


l,n,o))); 


else 
return 

new Top(t,r.accept(this)); } 


82 


What do the two visitors have in common? 


Many things: n, o, and forBot. 


83 


Where do thev differ? 

C 


They differ in forTop , but LtdSubst v also has 
an extra field. 


84 


And where do we put the pieces that two 
classes have in common? 


We put them into an abstract class. 


85 


What else does the abstract class contain? 


It specifies the pieces that are different if 
they are needed for all extensions. 
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It’s not a big deal, except for the fields. 

abstract class Subst p 
implements PieVisitor 1 { 

Object n; 

Object o; 

public P\e v forBot() { 

return new Bot(); } 
public 

abstract Pie 75 forTop (Object t,P\e v r); 


Define the abstract class Subst 15 , which 
contains all the common pieces and specifies 
what a concrete pie substituter must contain 
in addition. 


} 


87 


It also extends Subst p . 


We can define Subst v by extending Subst 75 . 


Define LtdSubst v . 


88 


Do the two remaining classes still have things 
in common? 


No, but the constructors have some overlap. 
Shouldn’t we lift the Subst v constructor into 

Subst p , because it holds the common 
elements? 
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89 


That's a great idea. Here is the new version 
of Subst 15 . 


We must use super in the constructors. 


class Subst v extends Subst p { 
Subst v (Object _n,Object _o) { 
super(_n,_o); } 


v 


forTop (Object t, Pie p r) { 


public Pie 

if [o.equals{t)) 


return 

new Top(n,r.accept(this)); 


else 

return 

new Top(t, r.accept (this)); } 


} 


class LtdSubst v extends Subst 15 { 
int c; 

LtdSubst v (int _c, Object _n, Object _o) { 
super(_n,_o); 


Revise Subst v and LtdSubst v . 


- c ; } 


c 


public Pie 15 for Top (Object t,P ie p r) { 

if (c 

return new Top(£,r); 

else 

if (o. equals (t)) 

return 
new Top(n, 

r. accept ( 

new LtdSubst v (c 


0 ) 


l,n,o))); 


else 

return 

new Top(t,r.accept(this)); } 


} 


90 


Was that first part easy? 


As pie. 
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The Eighth Bit of Advice 


When extending a class, use overriding 
to enrich its functionality. 
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Here is the good old definition of Subst v 
from chapter 6 one more time. 


The rest follows naturally, just as with the 
evaluators and the previous version of these 
two classes. 


class LtdSubst v extends Subst v { 
int c; 

i 

LtdSubst v (int _c, Object _n,Object _o) { 

super(_n,-o); 


_c; } 


c 


V 


for Top (Object t,P\e v r) { 


public Pie 

if (c == 

return new Top(£,r); 
else 


0 ) 


if (o. equals (t)) 

return 


new Top(n, 

r. accept ( 

new LtdSubst v (c 


l,n,o))); 


else 

return 


Top(Lr.accep£(this)); } 


new 


Define LtdSubst v as an extension of Subst v . 


} 


96 


Fine, and don’t forget to use lines, rather 
than arrows, for implements. 


Let’s draw a picture. 


a ccep t 


PieVisitor 1 


Pie p 


Subst v 


Top 


LtdSubst v 


97 


It’s already on its way. 


You deserve a super-deluxe pizza now. 
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It has been a long time since we discussed 
the datatype Point 75 and its variants, but 
they are not that easy to forget. 


Remember Point 25 ? If not, here is the 
datatype with one additional method, minus. 
We will talk about minus when we need it, 
but for now, just recall Pointy’s variants. 


abstract class Point 15 { 
int x ; 
int y\ 

Point I? (int _x,int _ y ) { 


x 


- x ; 


v = -y;\ 


boolean closerToO (Point® p) { 

return 

distanceToOQ < p.distanceToOQ ; } 
Point 15 minus( Point 75 p) { 

return 

new CartesianPt(:r — p.x,y — p.y ); } 
abstract int distance To0(); 


} 


2 


Good. Take a look at this extension of 

ManhattanPt. 


It uses 


-A*; 

-Ay? 

in addition to super (_a:,_ 2 /). 


A 


X 


A 


y 


What is unusual about the constructor? 
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And what does that mean? 


By using super on the first two values 
consumed, the constructor creates a 
ShadowedManhattanPt with proper x and y 
fields. The rest guarantees that this newly 
created point also contains values for the two 
additional fields. 


Okay. So what is a ShadowedManhattanPt? 


It is a ManhattanPt with two additional 
fields: A x and A y . These two represent the 
information that determines how far the 
shadow is from the point with the fields x 
and y. 


Is this a ShadowedManhattanPt: 
new ShadowedManhattanPt(2,3,l,0)? 


Yes. 


What is unusual about distanceToO? 


Unlike any other method we have seen 
before, it contains the word super. So far, 
we have only seen it used in constructors. 
What does it mean? 


Okay. That means we just add x and y when 
we evaluate super. distanceToO(). 


Here, super, distance ToO refers to the 
method definition of distanceToO that is 
relevant in the class that 

ShadowedManhattanPt extends. 


Correct. But what would we have done if 
ManhattanPt had not defined distanceToO ? 


Then we would refer to the definition in the 
class that ManhattanPt extends, right? 


Yes, and so on. What is the value of 

new ShadowedManhattanPt(2,3,l,0) 

. distanceToO ()? 


It is 6, because 2 -f 3 is 5, and then we have 
to add 1 and 0. 
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Nothing. We just discussed this kind of 
constructor for ShadowedManhattanPt. 


Precisely. Now take a look at this extension 
of CartesianPt. 


class ShadowedCartesianPt 
extends CartesianPt { 
int A x ; 
int A y ; 

Shadowed CartesianPt (int -X, 

int _y, 
int _A 

int -A y ) { 


X ? 


super (_£,_?/); 

-A x ; 

Ad } 


A 


X 


A 


y 


int distanceToOQ { 

return 

super, distance ToO() 


+ 




;} 


+ 


y 




What is unusual about the constructor? 


11 


Is this a ShadowedCartesianPt: 

new ShadowedCartesianPt(12,5,3,4)? 


Yes. 


12 


And what is the value of 

new ShadowedCartesianPt(12,5,3,4) 

.distanceTo 0 {)? 


It is 18, because the distance of the 
Cartesian point (12,5) is 13, and then we add 
5, because that is the value of 


A2 + A2 


with A x replaced by 3 and A y replaced by 4. 


13 


What do we expect? 


17, obviously. 
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Why 17? 


to 


point 


we nt? 


were 


new CartesianPt(15,9). 


15 


And indeed, the value of 

new CartesianPt(15,9) 

.distance To 0() 

is 17. 


We need to add A x to x and A y to y when 
we think of a ShadowedCartesianPt. 


16 


Completely. It should make a new 
CartesianPt bv adding the corresponding 
fields and should then measure the distance 
of that new point to the origin. 


Does this explain how distanceToO should 
measure the distance of a 
ShadowedCartesianPt to the origin? 


17 


Revise the definition of ShadowedCartesianPt 


Okay. 


accor 


class ShadowedCartesianPt 


extends CartesianPt { 
int A x ; 
int A y \ 

ShadowedCartesianPt(int _ x . 

int _y. 
int _A r . 
int _A„) { 


super(_:r,_?/); 

-A*; 

- : } 


A 


X 


A 


v 


int distanceToO () { 

return 


new CartesianPt(.r + A x ,y + A y ) 


. distanceToO (); } 




18 


Do we still need the new CartesianPt after 
distanceToO has determined the distance? 


No, once 
need for this point. 


? we have the distance, we have no 


i 


i 


And neither does Java. Object-oriented languages manage 
memory so that programmers can focus on the difficult parts 
of design and implementation. 
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Correct. What is the value of 

new CartesianPt(3,4) 

.closerToO( 

new ShadowedCartesianPt(l,5,l,2))? 


because the distance of the CartesianPt to 
the origin is 5, while that of the 
ShadowedCartesianPt is 7. 


20 


How did we determine that value? 


That’s obvious. 


21 


Is the rest of this chapter obvious, too? 


What? 


22 


That was a hint that now is a good time to 
take a break. 


Oh. Well, that makes the hint obvious. 


23 


Come back fully rested. You will more than 
need it. 


Fine. 


24 


Are sandwiches square meals for you? 


They can be well-rounded. 


25 


Here are circles and squares. 


Then this must be the datatype that goes 
with it. 

abstract class Shape p { 
abstract 

boolean accep^ShapeVisitor 1 ask)', 


' 




class Square extends Shape p { 
int s; 

l 

Square(int _s) { 


-Y } 


5 


boolean accep^ShapeVisitor 1 ask) { 
return ask.forSquare(s); } 
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Very good. We also need an interface, and 


here it is. 


interface ShapeVisitor^ { 


boolean forCircle( int r); 


boolean forSquare(\nt 5 ); 


boolean forTransi Point 




Yes and we will need this third variant. 


1 


A better name is Translation. 


28 


Let's create a circle. 


29 


How should we think about that circle? 


30 


Good. So how should we think about 
new Square(lO)? 


31 


Where are our circle and square located? 
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It suggests that there is another variant: 

Trans. 


Okay, now this looks pretty straightforward, 
but what’s the point? 


No problem: 
new Circle(lO). 


We should think about it as a circle with 
radius 10. 


Well, that’s a square whose sides are 10 units 
long. 


W r hat does that mean? 
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32 


In that case, we must think of the circle as 
being drawn around the origin. 


Suppose we wish to determine whether some 
CartesianPt is inside of the circle? 


33 


And how about the square? 


There are many ways to think about the 
location of the square. 


34 


Let’s say the square’s southwest corner sits 
on the origin. 


Pick one. 


35 


That will do. Is the Cartesian Pt with x 
coordinate 10 and y coordinate 10 inside the 
square? 


Yes, it is. but barely. 


36 


And how about the circle? 


Certainly not, because the circle’s radius is 
10 , but the distance of the point to the origin 

is 14. 


37 


We have no choice so far, because Circle and 
Square only contain one field each: the radius 
and the length of a side, respectively. 


Are all circles and squares located at the 


origin? 


38 


This is where Trans comes in. What is 
new Trans( 
new CartesianPt(5,6), 
new Circle(lO))? 


Aha. With Trans we can place a circle of 
radius 10 at a point like 

new CartesianPt(5,6). 


39 


How do we place a square’s southwest corner 

at new CartesianPt(5,6)? 


Also with Trans: 
new Trans( 

new CartesianPt(5,6) 
new Square(lO)). 


40 


Is new CartesianPt(10,10) inside either the 

circle or the square that we just referred to? 


It is inside both of them. 
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41 


How do we determine whether some point is 
inside a circle? 


42 


How do we determine whether some point is 
inside a square? 


43 


Is that all? 


44 


Aren’t we on a roll? 


45 


Let’s take a look at our circle around 

new CartesianPt(5,6) 

again. Can we think of this point as the 


origin? 


46 


By how much? 


47 


How could we translate the points by an 
appropriate amount? 


48 


Is there a method in Point 15 that 
accomplishes that? 
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If the circle is located at the origin, it is 
simple. We determine the distance of the 
point to the origin and whether it is smaller 
than the radius. 


If the square is located at the origin, it is 
simple. We check whether the point’s x 
coordinate is between 0 and s, the length of 
the side of the square. 


No, we also need to do that for the y 
coordinate. 


We have only done the easy stuff so far. It is 
not clear how to check these things when the 
circle or the square are not located at the 

origin. 


We can if we translate all other points by an 
appropriate amount. 


By 5 in the x direction and 6 in the y 
direction, respectively. 


We could subtract the appropriate amount 
from each point. 


Yes. Is that why we included minus in the 
new definition of Point 15 ? 


The three methods put into algebra what we 
just discussed. 


Indeed. And now we can define the visitor 
HasPt v , whose methods determine whether 
some Shape 15 has a Point 15 inside of it. 


class HasPt v implements ShapeVisitor 1 { 
Point 15 

HasPt v (Point 15 _ p ) { 

P = -p; } 


P\ 


public boolean forCircle(int r) { 
return p. distance To 0() < r; } 
public boolean forSquare (int 5 ) { 
if 1 (p.x < s) 
return (p. y < s); 
else 

return false; } 
public 

boolean forTrans( Point 15 q, Shape 15 s) { 
return s. accept ( 

new HasPt v (p.minus(q))); } 




1 


We could have written the if . .. as 
return (p.x <* s) (p.y o s). 


50 


What is the value of 
new Circle(lO) 

. accept ( 

new HasPt v (new CartesianPt(10,10)))? 


We said that this point wasn’t inside of that 
circle, so the answer is false. 


51 


Good. And what is the value of 
new Square(lO) 

. accept ( 

new HasPt v (new CartesianPt(10,10)))? 


true. 


52 


Let’s consider something a bit more 
interesting. What is the value of 


We already considered that one, too. The 
value is true, because the circle’s origin is at 
new CartesianPt(5,6). 


new Trans( 
new CartesianPt(5,6), 

new Circle(lO)) 

. accept ( 


HasPt v (new CartesianPt(10,10)))? 


new 
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53 


Right. And how about this: 

new Trans( 
new CartesianPt(5,4), 
new Trans( 
new CartesianPt(5,6), 
new Circle(lO))) 

. accept ( 

new HasPt v (new CartesianPt(10,10)))? 


54 


But what is the value? 


55 


And then? 


56 


Very good. Can we nest Trans three times? 


57 


Ready to begin? 


58 


No. The exciting part is about to start. 


59 


How can we project a cube of cheese to a 
piece of paper? 


60 


And the orange on top? 
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Now that is tricky. We used Trans twice, 
which we should have expected given Trans’s 
definition. 


First, we have to find out whether 

new Trans( 
new CartesianPt(5,6), 
new Circle(lO)) 

. accept ( 

new HasPt v (new CartesianPt(5,6))) 
is true or false. 


Second, we need to look at 

new Circle(lO) 

. accept ( 

new HasPt v (new CartesianPt(0,0))), 

but the value of this is obviously true. 


Ten times, if we wish, because a Trans 

• • 

contains a Shape 75 , and that allows us to nest 
things as often as needed. 


What? Wasn’t that it? 


We are all eyes. 


It becomes a square, obviously. 


A circle, Transed appropriately. 



61 


Can we think of the two objects as one? 


What do we know from Circle, Square, and 
Trans about accept ? 


64 


So what should we do now? 


65 


Correct, except that we won’t allow ourselves 
to change ShapeVisitorC 


66 


Just to make the problem more interesting. 
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We can, but we have no way of saying that a 
circle and a square belong together. 


That looks obvious after the fact. But why is 
there a blank in accept ? 


We know that a ShapeVisitoi^ contains one 
method each for the Circle, Square, and Trans 
variants. And each of these methods 
consumes the fields of the respective kinds of 
objects. 


We need to change ShapeVisitor T so that it 
specifies a method for the Union variant in 
addition to the methods for the existing 
variants. 


Why can't we change it? 


In that case, we’re stuck. 
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We would be stuck, but fortunately we can 


W 7 hich means that we extend interfaces the 


extend interfaces. Take a look at this. 


way we extend classes. 


interface UnionVisitor 2 


extends ShapeVisitor^ { 


Does that mean accept in Union should 
receive a UnionVisitor 2 , so that it can use the 
forUnion method? 


Basically. This extension produces an 
interface that contains all the obligations 
(i.e., names of methods and what they 
consume and produce) of ShapeVisitor 2 and 
the additional one named forUnion. 


1 


actually extend several 
other interfaces. A class can implement several different 
interfaces. 


Unlike a class, an interface 


69 


Yes it should, but because UnionVisitor 2 
extends ShapeVisitor 2 . it is also a 
ShapeVisitor 2 . 


We have been here before. Our accept 
method must consume a ShapeVisitor 2 and 
fortunately every UnionVisitor 2 implements a 
ShapeVisitor 2 , too. But if we know that 
accept consumes a UnionVisitor 2 , we can 
convert the ShapeVisitor 2 to a UnionVisitor 2 
and invoke the forUnion method. 


70 


Perfect reasoning. Here is the completed 
definition of Union. 

class Union extends Shape 21 { 

Shape 2 * s; 

Shape 2 * t\ 

UnionfShape 2 * _s,Shape 2 * J) { 

s — _s; 


And it makes complete sense. 


*;} 


t 


boolean accepf(ShapeVisitor 2 ask) { 
return 

((U n ion Visitor 2 ) ask) .forUnion{s,t)\ } 


} 
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Let s create a Union shape. 


That s trivial. 


new Trans( 

new CartesianPt(12,2). 
new Union( 
new Square(lO), 
new Trans( 
new CartesianPt(4,4), 
new 


Circle(5)))). 


72 


That’s an interesting shape. Should we check 
whether 

new CartesianPt(12,16) 

is inside? 


We can’t. HasPt v is only a ShapeVisitor 2 , it 
is not a UnionVisitor 2 . 


73 


Could it be a UnionVisitor 2 ? 


No. It does not provide the method 
forUnion. 


74 


Define UnionHasPt v , which extends HasPt v 

J 

with an appropriate method forUnion. 


Here it is. Its method checks whether the 
point is in one or the other part of a union. 
The other methods come from HasPt v . 


class UnionHasPt v extends HasPt v { 
UnionHasPt v (Point 2> _p) { 

super (_p); } 


v 


s, Shape 25 t) { 


boolean /or(7mon(Shape 
if 1 ( 5 . accept (this)) 

return true: 
else 

return t. accept (this); } 


} 


1 


We could have written the if . . . as 

return s.accept(this) II t.accept(this). 


75 


Does UnionHasPt v contain forUnion ? 


Of course, we just put it in. 
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77 


The first two additional words have an 
obvious meaning. They explicitly say that 
this visitor provides the services of 
Union Visitor 2 . And, as we have said before, 
the addition of public is necessary, because 
this visitor implements an interface. 


Correct, but unfortunately we have to add 
three more words to make this explicit. 


class UnionHasPt v 
extends HasPt v 

implements Union Visitor 2 { 

UnionHasPt v (Point D ~p) { 
super(_p); } 


public 

boolean for Union (Shape 
if (s. accept (this)) 
return true; 

i 

else 

return t. accept (this); } 


v 


Shape 2 * t) { 


s 




78 


We know how forTrans works, so we're really 
asking whether 

new CartesianPt(10,10) 

is inside the Union shape. 


Good try. Let’s see whether it works. What 
should be the value of 

new Trans( 

new CartesianPt(3,7), 
new Union( 
new Square(lO), 
new Circle(lO))) 

. accept ( 

new UnionHasPt v ( 
new CartesianPt(13,17)))? 


79 


Which means that we’re asking whet her 

new CartesianPt(10,10) 
is inside of 

new Square(lO) 

or inside of 

new Circle(lO). 


So? 
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Okay. And what should be the answer? 


81 


Usually we start by determining what kind of 
object we are working with. 


Let’s see whether the value of 

new Trans( 
new CartesianPt(3,7), 
new Union( 
new Square(lO), 
new Circle(lO))) 

. accept ( 

new UnionHasPt v ( 

new CartesianPt(13,17))) 


is true? 




And? 


It’s a Shape 75 . 


83 


How did we construct this shape? 


With Trans. 




Which method should we use on it? 


forTrans , of course. 




Where is forTrans defined? 


It is defined in HasPt v . 




So what should we do now? 


We should determine the value of 

new Union( 

new Square(lO), 
new Circle(lO)) 

. accept ( 

new HasPt v ( 
new CartesianPt(10,10))). 


87 


What type of object is 

new Union( 
new Square(lO), 
new Circle(lO))? 


It’s a Shape 15 . 
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89 


So which method should we use on it? 


for Union, of course. 


How do we find the appropriate for Union 
method? 


In accept , whicr 
confirm that 

HasPt v ( 
new CartesianPt(lOJO)) 

is a UnionVisitor J and then invoke its 
for Union. 


in union 


is 


new 


91 


Is an instance of HasPt v a UnionVisitor J ? 


No! 


92 


No! 


Does it contain a method for Union ? 


93 


Then what is the value of 

new Union( 

new Square(lO), 
new Circle(lO)) 

. accept ( 

new HasPt v ( 
new CartesianPt(lO.lO)))? 


i 


It doesn't have a value. We are stuck. 


l 


A Java program raises a RuntimeException, indicating 
that the attempt to confirm the UnionVisitorl ness of the 
object failed. More specifically, we would see the following 
when running the program: 

java.lang.ClassCastException: 
at Union.accept(...java:, ..) 
at UnionHasPtV.forTrans(...java:...) 
at Trans.accept(...java:...). 


UnionHasPtV 


94 


What do we do next? 


Relax. Read a novel. Take a nap. 


95 


Which of those is best? 


You guessed it: whatever you did is best. 


96 


How could we have done that? 


We should have prepared this extension in a 
better way. 
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In two ways. First, it contains a new 
method: newHasPt. Second, it uses the new 
method in place of new HasPt v in for Trans. 


Here is the definition of HasPt v that we 
should have provided if we wanted to extend 
it without making changes. 

class HasPt v implements ShapeVisitor x { 
Point p p\ 

HasPt v (Point I> _p) { 

p = -p; } _ 

ShapeVisitor J newHasPt (Point 15 p) { 

return new HasPt v (p); } 


public boolean forCircle( int r) { 
return p.distanceToOQ < r; } 
public boolean forSquare( int s) { 
if 1 (p.x < 5) 

return ( p.y < 5); 

else 

return false; } 
public 

boolean forTrans( Point 15 g,Shape p s) { 

return 

5. accept (newHasPt (p. minus ( q ))); } 


} 


How does this definition differ from the 
previous one? 


98 


Good. What does newHasPt produce? 


A new ShapeVisitor*", as its interface implies. 


99 


And how does it produce that? 


By constructing a new instance of HasPt v . 


100 


It is virtually indistinguishable from a 
constructor, which is why it is above the line 
that separates constructors from methods. 


Is newHasPt like a constructor? 
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Does that mean the new definition of HasPt v 
and the previous one are really the same? 1 


They are mostly indistinguishable. Both 
forTranses , the one in the previous and the 
one in the new definition of HasPt v , produce 
the same values when they consume the 
same values. 


1 


A functional programmer would say that newHasPt and 
HasPtV are p-equivalent. 


102 


Very well. But how does that help us with 
our problem? 


That's not obvious. 


103 


Can we override newHasPt when we extend 

HasPt v ? 


Yes, we can override any method that we 
wish to override. 


104 


Let's override newHasPt in UnionHasPt v . 


When we override it, we need to make sure it 
produces a ShapeVisitor 2 . 


105 


That's true. Should it produce a HasPt v or a 
UnionHasPt v ? 


The latter. Then forTrans in HasPt v keeps 
producing a UnionHasPt v , if we start with a 
UnionHasPt v . 


106 


Good answer. Should we repeat it? 


Let's just reread it. 


The Ninth Bit of Advice 


If a datatype may have to be extended, 
be forward looking and use a 
constructor-like (overridable) method 
so that visitors can be extended, too. 
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107 


Here it is. 

class UnionHasPt v 
extends HasPt v 
implements Union Visitor 2 { 

UnionHasPt v (Point I) _p) { 
super(.p); } _ 

ShapeVisitor 2 newHasPt( Point 2 * p) { 
return new UnionHasPt v (p); } 


And that’s exactly what we need. Revise the 
definition of UnionHasPt v . 1 


public 

boolean forUnion( Shape 
if (s.accept(this)) 

return true; 

i 

else 

return t. accept (this); } 


v 


Shape 17 f) {I 

l 


s 




1 


The is an instance of the factory method pattern [4]. 


108 


If we assemble all this into one picture, what 
do we get? 


A drawing that helps our understanding of 
the relationships among the classes and 
interfaces. 


accept 


i 


ShapeVisitor 


v 


Shape 


UnionVisitor 2 


accept 


HasPt v 


Circle 


Union 


UnionHasPt v 
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What does the box mean? 


Everything outside of the box is what we 
designed originally and considered to be 
unchangeable; everything inside is our 
extension. 
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Does the picture convey the key idea of this 
chapter? 


No. It does not show the addition of a 
constructor-like method to HasPt v and how 
it is overridden in UnionHasPt v . 


Ill 


Is anything missing? 


Square, but that’s okay. 


112 


Let’s see whether this definition works. 

What is the value of 

new Trans( 

new CartesianPt(3,7), 
new Union( 
new Square(lO), 
new Circle(lO))) 

. accept ( 

new UnionHasPt v ( 
new CartesianPt(13,17)))? 


We remember that the shape was built with 
Trans. 


113 


Which method should we use on it? 


forTrans , of course. 


114 


Where is forTrans defined? 


It is defined in HasPt v . 


115 


So what should we do now? 


We should determine the value of 

new Union( 
new Square(lO), 
new Circle(lO)) 

. accept ( 

this .newHasPt( 

new CartesianPt(10,10))). 


116 


What is this? 


The current visitor, of course. 


117 


And how does that work? 


We determine the value of 
this. newHasPt( 

new CartesianPt(10,10)) 

and then use accept for the rest. 
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The new UnionVisiton: 
new UnionHasPt v ( 
new CartesianPt(10,10)). 


And what do we create? 


119 


UnionHasPt v also satisfies the interface 
ShapeVisitor 2 , so now we can invoke the 
for Union method. 


What is the value of 
new Union( 

new Square(lO), 

new Circte(lO)) 

.accept ( 

new UnionHasPt v ( 

new CartesianPt(10,10)))? 


120 


We first determine the value of 
new Square(lO) 

. accept ( 

new UnionHasPt v ( 

new CartesianPt(10,10))). 
If it is true, we’re done. 


How do we do that? 


121 


Is it true? 


It is. So we’re done and we got the value we 
expected. 


122 


Are we happy now? 


Ecstatic. 


123 


Is it good to have extensible definitions? 


Yes. People should use extensible definitions 
if they want their code to be used more than 
once. 


124 


Yes, we can and should always do so. 


Very well. Does this mean we can put 
together flexible and extensible definitions if 
we use visitor protocols with these 
constructor-like methods? 


125 


And why is that? 


Because no program is ever finished. 


126 


Are you hungry yet? 


Are our meals ever finished? 
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1 


Have you ever wondered where the pizza pies 
come from? 


You should have, because someone needs to 
make the pie. 




This is beyond anything we have seen before. 


Here is our pizza pieman. 


M 


This superscript is a reminder that the class manages a 
data structure. Lower superscripts when you enter this kind 
of definition in a file: PiemanM. 


3 


How so? Haven’t we seen Pie 15 , Top, and Bot 
before? 


We have seen them. 


And haven’t we seen visitors like Rem v , 
Subst v , and Occurs v for various datatypes? 


Yes, yes. But what are the stand-alone 
semicolons about? 


5 


Let’s not worry about them for a while. 


Fine, but thev are weird. 
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0 


Here is the interface for Pieman ^ 1 . 


•s ▼ 


interface Pieman 2 { 


int add Top (Object £); 


int remTo/; (Object t)\ 


int s ubst Top (Object w, Object o): 


int occ Tow (Object o); 


1 




i 


i 


r 








any case, we don't want anybody else to 

t . 1 • v' 


8 


Here are PieVisitor 2 and Pie 2 . 

interface PieVisitor 2 { 

Object forBotQ; 

Object for Top (Object t.Pie 2 r); 


} 


i 


i 


abstract class Pie 2 * { 
abstract 

Object accept (PieVisitor 2 ask); 


! 




I 


1 




Define Bot and Top. 
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Isn’t it missing p? 


Whatever. 


They are very familiar. 


class Bot extends Pie 2 { 

Object accept (PieVisitor 2 ask) { 
return ask.forBot()\ } 


1 




class Top extends Pie 2 { 
Object t: 

Pie 2 

Top(Object _t,Pie 2 _r) { 


r; 


t 


-1 ; 


-r;} 


r 


f 

i 




1 


i 


Object accept (PieVisitor 2 ask) { 
return ask.forTop(tj'); } 


I 




i 


r % •— 


1 
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Here is Occurs . It counts how often some 


And this little visitor substitutes one 


topping for another. 


topping occurs on a pie. 


10 


Great! Now we have almost all the visitors 
for our pieman. Define Rem v , which removes 
a topping from a pie. 


We remember that one. too. 
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11 


Now we are ready to talk. What is the value 


We first create a Pieman^ 1 and then ask how 
many anchovies occur on the pie. 


of 


Pieman^ ().occTop(new AnchovyQ)? 


new 


12 


Which pie? 


The pie named p in the new PiemarvW 


13 


And how many anchovies are on that pie? 


N one. 


14 


And what is the value of 

new P\eman M () .addTop (new AnchovyQ)? 


That’s where those stand-alone semicolons 
come in again. They were never explained. 


15 


True. If we wish to determine the value of 

new Piemam M Q.addTc>p(new AnchovyQ), 

we must understand what 

new Top(new AnchovyQ,/)) 


Yes, we must understand that. There is no 
number x in the world for which 

x + 1, 

so why should we expect there to be a Java p 
such that 


x 


P 


return occTop( new AnchovyQ) 

means? 


new Topfnew AnchovyQ,/))? 


P 


16 


So what does it mean? 


That’s right. But that’s what happens when 
you have one too many double espressos. 


17 


And the change is that p has a new topping 
right? 


Here it means that p changes and that future 
references to p reflect the change. 


18 


When does the future begin? 


Does it begin below the stand-alone 
semicolon? 


19 


That's precisely what a stand-alone 
semicolon means. Now do we know what 

return occTop(new AnchovyQ) 
produces? 


It produces the number of anchovies on p. 
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21 


It’s 2, isn't it? 


And now what is the value of 

new P\err\an M ().addTop (new AnchovyQ)? 


22 


Oh, isn't there a way to place several 
requests with the same pieman? 


No, it’s not. Take a close look. We created a 
new pieman, and that pieman added only 
one anchovy to his p. 


23 


Okay, y stands for some pieman. 


Yes, there is. Take a look at this: 

new Piemair M (). 


j 


Pieman 


y 


24 


What is the value of 

y.addTop( new AnchovyQ)? 


1. We know that. 


25 


And now what is the value of 

y.substTop( new Tuna(),new AnchovyQ)? 


Still 1. According to the rules of semicolon 
and =, this replaces all anchovies on p with 
tunas, changes p, and then counts how many 
tunas are on p. 


26 


Correct. So what is the value of 
y.occTop( new AnchovyQ)? 


0, because y 's pie no longer contains any 
anchovies. 


27 


Very good. And now take a look at this: 

new Pieman^Q. 


What are the 


1 


Pieman 

What is the value of 

yy. add Top (new AnchovyQ) 


yy 


doing at the end? 


yy.addTop( new AnchovyQ) 


yy.addTop( new SalmonQ) 
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Because this is only half of what we want to 
look at. Here is the other half: 
yy.addTop (new TunaQ) 


4. First we add two anchovies, then a 
salmon, and two tunas. Then we substitute 
the two anchovies by two tunas. So yy's pie 
contains four tunas. 


yy.addTop (new TunaQ) 


yy.substTop (new TunaQ,new AnchovyQ)? 


29 


And what is the value of 
yy.remTop {new TunaQ) 

after we are through with all that? 


It’s 0, because remTop first removes all tunas 
and then counts how many there are left. 


30 


Does that mean remTop always produces 0? 


Yes, it always does. 


31 


1 . 


Now what is the value of 
yy.occTop(ne w SalmonQ)? 


32 


And how about 

y.occ7op(new SalmonQ)? 


0, because y and yy are two different piemen. 


33 


Is yy the same pieman as before? 


No, it changed. 


34 


When we eat a pizza pie, we change, but we 
are still the same. 


So is it the same one? 


35 


When we asked yy to substitute all anchovies 
by tunas, did the pie change? 


The p in yy changed, nothing else. 


36 


Does that mean that anybody can write 

new BotQ 

and thus change a pieman like yyl 


No, because yy’s type is Pieman 1 , p isn’t 
available. Only addTop, remTop , substTop 
and occTop are visible. 


yy-p 
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Yes, with this trick we can prevent others 
from changing p (or parts of p) in strange 
ways. Everything is clear now. 


Isn’t it good that we didn’t include p in 
Pieman J ? 


38 


Just like chicken soup. 


Clear like soup? 


39 


Can we define a different version of Subst v so 
that it changes toppings the way a pieman 
changes his pies? 


We can’t do that yet. 


40 


No, a cup of coffee will do. 


And that’s what we discuss next. Do you 
need a break? 


41 


It isn’t all that different. A PieVisitor 2 - must 
still provide two methods: forBot and 
forTop, except that the former now 
consumes a Bot and the latter a Top. 


Compare this new PieVisitor 2 - with the first 
one in this chapter. 


interface PieVisitor 2 - { 
Object forBot( Bot that ); 
Object for Top (Top that); 




42 


True. Here is the unchanged datatype. 

abstract class Pie 15 { 
abstract 

Object accept (PieVisitor 2 - ask); 


The definition is straightforward. 

class Bot extends Pie^ { 

Object accept(PieVisitor J ask) { 
return ask. forBot (this); } 




} 


Define the Bot variant. 


43 


Is it? Why does it use this? 


We only have one instance of Bot when we 
use forBot , namely this, so forBot is clearly 
supposed to consume this. 
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44 


That’s progress. And that’s what happens in 
Top, too. 


Interesting. 


45 


Modify this version of Occurs v so that it 
implements the new PieVisitor 2 . 


The forBot method basically stays the same, 
but for Top changes somewhat. 


class Occurs v implements PieVisitor 2 { 
Object a ; 

Occurs v (Object _ a ) { 


_a; } 


a 


public Object forBot( Bot that) { 
return new Integer(O); } 
public Object forTop( Top that) { 
if (that. t. equals (a)) 

return 


new lnteger(((Integer) 


( that. r. accept (this))) 
.int ValueQ 

+ i); 


else 

return that.r.accept( this); } 


} 


46 


It now consumes a Bot, which is why we had 
to add (Bot that) behind its name. 


How does forBot change? 
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How does for Top change? 


It no longer receives the field values of the 
corresponding Top. Instead it consumes the 
entire object, which makes the two fields 


available as that.t and that.r. 


48 


And? 


With that, we can replace the fields t and r 
with that.t and that.r. 


49 


Isn’t that easy? 


This modification of Occurs v certainlv is. 


50 


It’s easy; we use the same trick. 


Then try Rem v . 


class Rem v implements PieVisitor J { 
Object o ; 

Rem v (Object _ o) { 

} 


O 


public Object forBotf Bot that) { 
return new Bot(); } 
public Object forTop( Top 
if (o. equals (that.t)) 
return that.r. accept ( this); 

else 

return 

new Top (that.t, 

(P \ e v ) that.r. accept (this)) \ } 




51 


Do we need to do Subst v ? 


Not really. It should be just like Rem v . 


52 


And indeed, it is. Happy now? 


So far, so good. But what’s the point of this 
exercise? 


53 


Oh, Point^s? They will show up later. 


Seriouslv. 
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Here is the point. What is new about this 
version of Subst v ? 

class Subst v implements PieVisitor 2 { 
Object n; 

Object o: 

Subst v (Object _n, Object _o) { 

n = -7i: 


There are no news. 


} 


o 


public Object forBot (Bot that) { 
return that ; } 

public Object forTop( Top that) { 

if (o. equals (that, t)) { 
that, t 


n 


that. r. accept ( this) 


return that ; } 
else { 

that. r. accept ( this) 


return that ; } 






55 


Does this saying apply here, too? 


Don’t they say "no news is good news? 


56 


Yes, because we want to define a version of 
Subst v that modifies toppings without 
constructing a new pie. 


That’s a way of putting it. 


57 


They always return that , which is the object 

that they consume. 

%/ 


What do the methods of Subst v always 
return? 


58 


So how do they substitute toppings? 


By changing the that before they return it. 
Specifically, they change the t field of that to 
n when it equals o. 
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60 


Correct. And from here on, that.t holds the 
new topping. What is 

that.r. accept (this) 

about? 


In the previous Subst v , r. accept (this) 
created a new pie from r with all toppings 
appropriately substituted. In our new 
version, that.r.accept ( this) modifies the pie r 
so that below the following semicolon it 
contains the appropriate toppings. 


61 


Is there anything else to say about the new 

Subst v ? 


Not really. It does what it does, which is 
what we wanted. 


1 


l 


This is a true instance of the visitor pattern [4]. What we 
previously called “visitor” pattern instances, were simple 
variations on the theme. 


62 


Do we have to change Piemarv^? 


No, we didn't change what the visitors do, 
we only changed how they do things. 


63 


Is it truly safe to modify the toppings of a 
pie? 


Yes, because the Pieman^ manages the 
toppings of p, and nobody else sees p. 
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Can we do LtdSubst v now without creating 
new instances of LtdSubst v or Top? 


Now that’s a piece of pie. 


The Tenth Bit of Advice 


When modifications to objects are- 
needed, use a class to insulate the 
operations that modify objects. 
Otherwise, beware the consequences of 
your actions. 
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Here is a true dessert. It will help us 
understand what the point of state is. 


The datatype has three extensions. 


class CartesianPt extends Point 25 { 
CartesianPt(int _x,int _?/) { 
super {-x,„y); } 


abstract class Point 15 { 
int x; 
int y; 

Point p (int _x,int _j/) { 
x ~ -x ; 

V = -V\ } 

boolean closer To 0(Point r> p) { 

return 

distanceToOQ < p. distanceToOQ ; } 
Point 15 minus( Point 15 p) { 

return 

new CartesianPt(x — p.x,y — p.y)\ } 
abstract int distance ToOQ; 


int distanceToO() { 

+ y 2 J; } 




return [ 


x 


} 


class ManhattanPt extends Point 25 { 
ManhattanPt(int _x,int .y) { 
super (-x,.y); } 


int distanceToO() { 

return x + y\ } 


} 


} 


class Shadowed Manhattan Pt 
extends ManhattanPt { 
int A x ; 
int A y ; 

ShadowedManhattanPt(int _z, 

int y , 
int _A 
int -A y ) { 


X} 


super (-x,-y); 

-Ax') 
-Ay')} 


A 


A 


y 


int distanceToOQ { 

return 

super. distanceToOQ 4-A^ -f A y ; } 


} 
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Aren’t we missing a variant? 


Yes, we are missing ShadowedCartesianPt. 
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67 


Shouldn’t we add a method that changes all 
the fields of the points? 


Good enough. We won’t need it. Here is one 
point: 

new ManhattanPt(l,4). 

If this point represents a child walking down 
the streets of Manhattan, how do we 
represent his movement? 
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First we must know what the method is 
supposed to produce. 


Yes. Add to Point 15 the method moveBy , 
which consumes two ints and changes the 
fields of a point appropriately. 
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The method should return the new distance 
to the origin. 


Now we know how to do this. 
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Let ptChild stand for 
new ManhattanPt(l,4). 

What is the value of 
ptChild. distance To 0 () ? 


5. 
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VV hat is the value of 


ptChild.moveBy(2fi)7 


Good. Now let's watch a child with a 
helium-filled balloon that casts a shadow. 
Let ptChildBalloon be 

new ShadowedManhattanPt( 1,4,1,1). 

What is the value of 

pt ChildBalloon, distanceTo 0()? 
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What is the value of 

ptChildBalloon. rrioveBy (2,8)? 


17, of course. 
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Did the balloon move, too? 


Yes, it just moved along as we moved the 
point. 
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Isn't that powerful? 


It sure is. We added one method, used it, 

• . T 

and everything moved. 
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The more things change, the cheaper our 


Yes, but to get to the dessert, we had to 
work quite hard. 
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Don’t forget to leave a tip. 


Correct but now we are through and it is 
time to go out and to celebrate with a grand 
dinner. 
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You have reached the end of your introduction to computation with classes, interfaces, and 
objects. Are you now ready to tackle a major programming problem? Programming requires 
two kinds of knowledge: understanding the nature of computation, and discovering the lexicon, 
features, and idiosyncrasies of a particular programming language. The first of these is the more 
difficult intellectual task. If you understand the material in this book, you have mastered that 
challenge. Still, it would be well worth your time to develop a fuller understanding of all the 
capabilities in Java—this requires getting access to a running Java system and mastering those 
idiosyncrasies. If you want to understand Java and object-oriented systems in greater depth, 
take a look at the following books: 
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This is for the loyal Schemers and MLers. 


No, we wouldn’t forget factorial. 


class MkFact implements oo 
public o— >o x apply( o 
return new Fact {fact); } 


oo 


i 


fact) { 




interface o—»o J { 

Object apply (Object x); 


class Fact implements o—>o z { 

o—>o z fact ; 

Fact(o—>o z -fact) { 
fact = -fact; } 

public Object apply (Object i ) { 

int inti — ((Integer )i).intValue(): 
if (inti 

return new Integer(l); 
else 
return 
new lnteger( 

inti 




0 ) 


class Y implements oo—>oo —>oo z { 
public o—>o z apply ( oo—>oo z /) { 
return new H(f). apply (new H (/)); } 


((Integer) 

fact, apply (new Integer (mi?' 
.intValue()); } 


1 ))) 


} 


} 


class H implements T 1 { 


oo—>oo J /; 


H(oo—+oo J _/) { 

/ = -/;} 

public o—*o 2 apply ( T 1 x) { 
return /. apply (new G(ar)); } 


} 


class G implements o—>o J { 


T 1 


x; 


G(T I .x) { 


-x\ } 


X 


public Object apply (Object y) { 
return (x.apply(x)).apply(y); } 
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